FM Towns: Free Software Collection 11/FM Towns Free Software Collection 11.iso/t_os/tool/ksd_9_10/ksd_9_10.bas

BASIC Source File | 1995-08-17 | 232KB | 4,380 lines

10 '********************************************************************
20 '               くしだ　たかお 作品集 2 (keybord operation version)
30 '
40 '               (c) くしだたかお + かんの たけし (1995/8)
50 '********************************************************************
60 '
70 CLS : SCREEN@ 0 : DEFINT A-Z
80 DIM TITLE_9$(11),TEMPO_9$(10)              '曲のﾀｲﾄﾙ,ﾃﾝﾎﾟ格納用配列
90 DIM TITLE_10$(14),TEMPO_10$(13)
100 '
110 DIM FMB$(1),PMB$(2)                      '音源ﾌｧｲﾙ名格納用
120 LD_FLG=0 : PMB_IS_05=0                   '音源ﾌｧｲﾙ ﾛｰﾄﾞﾁｪｯｸ用
130 FC_NUM=-1 : LAST_FC_NUM=-1 : SONG_NUM=-1 'ﾒﾆｭｰｾﾚｸﾄ ﾁｪｯｸ用変数
140 A_PLAY=0 : A_MODE$="OFF"                 'AUTOPLAY用
150 G__$="Q8%CT"                 '全ﾄﾗｯｸ初期化用 ("G" は ト音記号のつもり ^_^)
160 F_C_$="Free Software Collection "
170 C_8_9$="COMPOSE + MIX  TAKAO KUSHIDA  "
180 ON ERROR GOTO *ERR_TRAP
190 ON KEY (1) GOSUB *MZK_STP   '演奏中止
200 '
210 '--ﾃﾞｰﾀ読み込み--
220 FOR I=0 TO 10
230   READ TITLE_9$(I),TEMPO_9$(I)
240 NEXT
250 READ TITLE_9$(11)
260 '
270 FOR I=0 TO 13
280   READ TITLE_10$(I),TEMPO_10$(I)
290 NEXT
300 READ TITLE_10$(14)
310 '
320 '--音色ファイル名読み込み--
330 FOR I=0 TO 1
340   READ FMB$(I),PMB$(I)
350 NEXT
360 READ PMB$(2)
370 '
380 ' *** MAIN ***
390 END_FLG=0
400 WHILE NOT END_FLG    '[0]key で,ﾒﾆｭｰﾙｰﾁﾝをｷｬﾝｾﾙ.
410 '
420   GOSUB *MAIN_MENU
430   GOSUB *SUB_MENU
440 '
450 *CHK_END_FLG
460 WEND
470 *PRG_END
480 CLS : END
490 '============================================================================
500 '
510 *MAIN_MENU
520 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
530 PRINT "******************  『くしだ軽音楽アワー』で あと5cmは伸びる！ *****************"
540 PRINT
550 PRINT "SELECT! [ 1 - 2 ]     EXIT [ 0 ]     AUTOPLAY ON/OFF [ 99 ]"
560 PRINT
570 FOR I=1 TO 2
580   IF LAST_FC_NUM=I THEN COLOR ,,,1
590   PRINT "[ ";I;" ]   ";F_C_$; : PRINT USING "##";I+8 : COLOR ,,,0
600   PRINT
610 NEXT
620 PRINT
630 PRINT "[ 99  ]   AUTOPLAY is ";A_MODE$
640 '
650 LOCATE 0,23,1 : GOSUB *FLASH : INPUT FC_NUM$
660 IF 0<VAL(FC_NUM$) AND VAL(FC_NUM$)<3 THEN
670      FC_NUM=VAL(FC_NUM$) : GOTO *LOAD_TONE
680 ELSE IF FC_NUM$="0" THEN
690     END_FLG=-1
700     RETURN *CHK_END_FLG
710 ELSE
720   IF FC_NUM$="99" THEN
730     A_PLAY=(NOT A_PLAY)
740       IF A_PLAY THEN A_MODE$="ON" ELSE A_MODE$="OFF"
750   ENDIF
760     GOTO *MAIN_MENU
770 ENDIF
780 '
790 *LOAD_TONE
800 WHILE NOT (FC_NUM = LAST_FC_NUM)
810   LD_FLG=-1 : LOAD@ FMB$(FC_NUM-1) : LOAD@ PMB$(FC_NUM-1) : LD_FLG=0
820     IF FC_NUM=2 THEN PMB_IS_05=-1           ' == fc10
830   LAST_FC_NUM=FC_NUM
840 WEND
850 RETURN
860 '--- END OF *MAIN_MENU ---
870 '
880 *SUB_MENU
890 IF A_PLAY THEN
900   GOSUB *AUTOPLAY : GOTO *EXIT_SUB
910 ELSE
920   ON FC_NUM GOSUB *FC9_MENU,*FC10_MENU
930 ENDIF
940 *EXIT_SUB
950 SONG_NUM=0 : RETURN
960 '--- END OF *SUB_MENU ---
970 '============================================================================
980 *AUTOPLAY
990 NOWPLAYNG=0
1000 *A_MENU
1010 WAIT 100 : PLAY OFF : CLS : SCREEN@ 0 : CONSOLE ,,0 : COLOR 4 : I=0
1020 PRINT F_C_$;FC_NUM+8,"AUTOPLAY MODE"
1030 PRINT
1040 IF FC_NUM=1 THEN
1050   WHILE NOT TITLE_9$(I)="NUL"
1060     IF NOWPLAYNG=I THEN COLOR ,,,1
1070     PRINT "[ "; : PRINT USING "##";I+1; : PRINT " ]   ";TITLE_9$(I) : COLOR ,,,0
1080     I=I+1
1090   WEND
1100   S$=G__$+TEMPO_9$(NOWPLAYNG) : GOSUB *TRK_FMT : GOSUB *HLP : WAIT 80
1110   ON NOWPLAYNG+1 GOSUB *S_46,*S_46E,*S_58,*S_59,*S_59E,*S_61,*S_62,*S_63,*S_64,*S_65,*S_67
1120   GOSUB *EXIT_9 : NOWPLAYNG=NOWPLAYNG+1
1130   IF NOWPLAYNG=I THEN RETURN ELSE GOTO *A_MENU
1140 ELSE IF FC_NUM=2 THEN
1150   WHILE NOT TITLE_10$(I)="NUL"
1160     IF NOWPLAYNG=I THEN COLOR ,,,1
1170     PRINT "[ "; : PRINT USING "##";I+1; : PRINT " ]   ";TITLE_10$(I) : COLOR ,,,0
1180     I=I+1
1190   WEND
1200   IF (1<NOWPLAYNG+1 AND NOWPLAYNG+1<12) AND (NOT PMB_IS_05) THEN
1210     LD_FLG=-1 : LOAD@ PMB$(1) : LD_FLG=0 : PMB_IS_05=-1
1220   ELSE IF (NOWPLAYNG+1=1 OR NOWPLAYNG+1>11) AND (PMB_IS_05) THEN
1230     LD_FLG=-1 : LOAD@ PMB$(2) : LD_FLG=0 : PMB_IS_05=0
1240   ENDIF
1250   S$=G__$+TEMPO_10$(NOWPLAYNG) : GOSUB *TRK_FMT : GOSUB *HLP : WAIT 80
1260   ON NOWPLAYNG+1 GOSUB *S_68,*S_69,*S_71,*S_72,*S_72E,*S_73,*S_73E,*S_74,*S_75,*S_76E,*S_77,*S_81,*S_83,*S_85
1270   GOSUB *EXIT_10 : NOWPLAYNG=NOWPLAYNG+1
1280   IF NOWPLAYNG=I THEN RETURN ELSE GOTO *A_MENU
1290 ENDIF
1300 '
1310 '===========================================================================
1320 *FC9_MENU
1330 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
1340 PRINT F_C_$;" 9"
1350 PRINT
1360 PRINT "SELECT! [ 1 - 11 ]     BACK to MAIN MENU [ 0 ]"
1370 PRINT
1380 FOR I=1 TO 11
1390   IF SONG_NUM=I THEN COLOR ,,,1
1400   PRINT "[ "; : PRINT USING "##";I; : PRINT " ]   ";TITLE_9$(I-1) : COLOR ,,,0
1410 NEXT
1420 '
1430 LOCATE 0,23,1 : GOSUB *FLASH : INPUT SONG_NUM$
1440 IF 0<VAL(SONG_NUM$) AND VAL(SONG_NUM$)<12 THEN
1450     SONG_NUM=VAL(SONG_NUM$) : GOSUB *PLAY_SONG_9 : GOTO *FC9_MENU
1460 ELSE IF SONG_NUM$="0" THEN
1470     RETURN
1480 ELSE
1490     GOTO *FC9_MENU
1500 ENDIF
1510 '
1520 '
1530 *PLAY_SONG_9
1540 WAIT 30 : PLAY OFF : CLS : SCREEN@ 0 : CONSOLE ,,0
1550 S$=G__$+TEMPO_9$(SONG_NUM-1) : GOSUB *TRK_FMT
1560 LOCATE 0,0,0 : PRINT TITLE_9$(SONG_NUM-1)
1570 IF SONG_NUM=4 THEN
1580   PRINT C_8_9$;"1992-1994"
1590 ELSE IF SONG_NUM=2 OR SONG_NUM=5 THEN
1600   PRINT "ReMIX  TAKAO KUSHIDA  1994"
1610 ELSE
1620   PRINT C_8_9$;"1994"
1630 ENDIF
1640 GOSUB *HLP
1650 ON SONG_NUM GOSUB *S_46,*S_46E,*S_58,*S_59,*S_59E,*S_61,*S_62,*S_63,*S_64,*S_65,*S_67
1660 *EXIT_9
1670 WHILE PLAY(0) : WEND
1680 PLAY STOP : KEY (1) OFF : WAIT 50
1690 RETURN
1700 '____ END OF FC9_PLAY ______________________________________________________
1710 '
1720 *FC10_MENU
1730 SCREEN@ 0 : CONSOLE 0,0,2 : COLOR 4,0,4,0 : LOCATE 0,0,0
1740 PRINT F_C_$;" 10"
1750 PRINT
1760 PRINT "SELECT! [ 1 - 14 ]     BACK to MAIN MENU [ 0 ]"
1770 PRINT
1780 FOR I=1 TO 14
1790   IF SONG_NUM=I THEN COLOR ,,,1
1800   PRINT "[ "; : PRINT USING "##";I; : PRINT " ]   ";TITLE_10$(I-1) : COLOR ,,,0
1810 NEXT
1820 '
1830 LOCATE 0,23,1 : GOSUB *FLASH : INPUT SONG_NUM$
1840 IF 0<VAL(SONG_NUM$) AND VAL(SONG_NUM$)<15 THEN
1850   SONG_NUM=VAL(SONG_NUM$)
1860   IF (1<SONG_NUM AND SONG_NUM<12) AND (NOT PMB_IS_05) THEN
1870     LD_FLG=-1 : LOAD@ PMB$(1) : LD_FLG=0 : PMB_IS_05=-1
1880   ELSE IF (SONG_NUM=1 OR SONG_NUM>11) AND (PMB_IS_05) THEN
1890     LD_FLG=-1 : LOAD@ PMB$(2) : LD_FLG=0 : PMB_IS_05=0
1900   ENDIF
1910       GOSUB *PLAY_SONG_10 : GOTO *FC10_MENU
1920 ELSE IF SONG_NUM$="0" THEN
1930     RETURN
1940 ELSE
1950     GOTO *FC10_MENU
1960 ENDIF
1970 '
1980 '
1990 *PLAY_SONG_10
2000 WAIT 30 : PLAY OFF : CLS : SCREEN@ 0 : CONSOLE ,,0 : COLOR 5
2010 S$=G__$+TEMPO_10$(SONG_NUM-1) : GOSUB *TRK_FMT
2020 LOCATE 0,0,0 : PRINT TITLE_10$(SONG_NUM-1)
2030 PRINT "written TAKAO KUSHIDA"
2040 IF SONG_NUM=2 THEN PRINT "注　このプログラムはループしています"
2050 GOSUB *HLP
2060 ON SONG_NUM GOSUB *S_68,*S_69,*S_71,*S_72,*S_72E,*S_73,*S_73E,*S_74,*S_75,*S_76E,*S_77,*S_81,*S_83,*S_85
2070 *EXIT_10
2080 WHILE  PLAY(0) : WEND
2090 PLAY STOP : KEY (1) OFF : WAIT 50  'play "OFF" だと最後の音が途切れる場合がある
2100 RETURN
2110 '____ END OF FC10_PLAY _____________________________________________________
2120 '===========================================================================
2130 *TRK_FMT
2140 PLAY S$,S$,S$,S$,S$,S$ ,S$,S$,S$,S$,S$,S$,S$,S$ : RETURN
2150 '
2160 *MZK_STP
2170 PLAY OFF
2180 IF FC_NUM=1 THEN
2190   NOWPLAYNG=I-1 : RETURN *EXIT_9
2200 ELSE IF FC_NUM=2 THEN
2210   NOWPLAYNG=I-1 : RETURN *EXIT_10
2220 ENDIF
2230 '
2240 *HLP
2250 LOCATE 0,22,0 : PRINT "PUSH [ PF 1 ] KEY to STOP" : KEY (1) ON : RETURN
2260 '
2270 *FLASH
2280 A$=INKEY$ : WHILE NOT A$="" : A$="" : A$=INKEY$ : WEND : RETURN    'ｷｰﾊﾞｯﾌｧｸﾘｱ
2290 '====================================================================
2300 *ERR_TRAP
2310 CLS : BEEP
2320 IF LD_FLG THEN
2330   PRINT "CAN'T FIND ",FMB$(FC_NUM-1),
2340     IF FC_NUM=2 AND (NOT PMB_IS_05) THEN
2350       PRINT PMB$(1)
2360     ELSE IF FC_NUM=2 AND PMB_IS_05 THEN
2370       PRINT PMB$(2)
2380     ELSE
2390       PRINT PMB$(FC_NUM-1)
2400     ENDIF
2410 ELSE
2420   PRINT "SOMETHING WRONG (I am sorry...)"
2430   PRINT "ERROR NUMBER ==";ERR
2440 ENDIF
2450 LOCATE 0,22,0 : PRINT "*** HIT ANY KEY TO QUIT PROGRAM ***"
2460 GOSUB *FLASH : WHILE A$="" : A$=INKEY$ : WEND : END_FLG=-1
2470 RESUME *PRG_END
2480 '====================================================================
2490 '***以下は諸データ群***
2500 'FC9
2510 DATA "BOXING JUNKIE THEME",142
2520 DATA "BOXING JUNKIE THEME  [ Loved Technology mix ]",142
2530 DATA "SWEETEST SOMETHING",105
2540 DATA "LOOM WORK",130
2550 DATA "LOOM WORK  [ DISSOLVE ReCOMPOSE EDIT ]",130
2560 DATA "ORGANIC  [ yellow ]",120
2570 DATA "ORGANIC  [ charcoal ]",122
2580 DATA "CONCRETE HIGH",140
2590 DATA "ETERNAL ETHER  [ Optical Interpret edit ]",120
2600 DATA "ELEVATION",135
2610 DATA "COSMIC SCAPE JAZZ  [ unCOMPLETE ]",120,NUL
2620 '
2630 'FC10
2640 DATA "JAZZY FOR VOYAGER",130
2650 DATA "KINKY LOVE CHILD",130
2660 DATA "TRUMP",130
2670 DATA "PASTURE SCAPE VIOLENCE",150
2680 DATA "SUNNY MONDAY",110
2690 DATA "INDIAN CONTROL  [ Mosaic mix ]",152
2700 DATA "INDIAN CONTROL  [ throb mix ]",105
2710 DATA "LET THEM CALL IT JAZZ",100
2720 DATA "BARE FEET  [ Naked rhythm edit ]",120
2730 DATA "ETERNAL ETHER  [ Lambda mix ]",100
2740 DATA "BIND OF 80s OBSESSION",130
2750 DATA "NEURAL BIT MAP",135
2760 DATA "DEFCON L5",135
2770 DATA "BIZARRE LOVE COLORS",150,NUL
2780 '
2790 'TONE_FILE_NAME
2800 DATA "ED02_FC9.FMB","ED04.PMB"
2810 DATA "ED02FC10.FMB","ED05.PMB","ED06.PMB"
2820 '
2830 '============================================================================
2840 '*** 演奏データ ***
2850 '===FC9===
2860 *S_46
2870 'BOXING JUNKIE THEME
2880 '
2890 AL$="@22V6O4L16Q8" : AR$="@22V5O4L16Q8" : AC$="@22V2O4L16Q8R20"
2900 A1L$=AL$+" A8A8A8AARAA8A8A8 G&G8E&E8F4DRDEF8"
2910 A1R$=AR$+" F8F8F8FFDEF8F8F8 E&E8C&C8D&D8<AA#RA#>CD8"
2920 A1C$=AC$+" A8A8A8AARAA8A8A8 G&G8E&E8F4DRDEF"
2930 A2L$=AL$+" A8A8A8AARAA8A8A8 G&G8>C&C8<F4&F8 G8G8"
2940 A2R$=AR$+" F8F8F8FFDEF8F8F8 E&E8 A&A8 D4&D8 E8E8"
2950 A2C$=AC$+" A8A8A8AARAA8A8A8 G&G8>C&C8<F4&F8 G8G"
2960 A3L$=AL$+" A8A8A8AARAA8A8A8 G8G8G8GGRGG8E4  "
2970 A3R$=AR$+" F8F8F8FFDEF8F8F8 E8E8E8EECFG8C4  "
2980 A3C$=AC$+" A8A8A8AARAA8A8A8 G8G8G8GG8GG8E8&E"
2990 A3E$=AL$+" A8A8A8AARAA8A8A8 G&G8E&E8F8@96Q1< A>DFA>DFA>D"
3000 A3F$=AR$+" F8F8F8FFDEF8F8F8 E&E8C&C8D8@96Q1< FA>DFA>DF A"
3010 A3G$=AC$+" A8A8A8AARAA8A8A8 G&G8E&E8F8@96Q1< A>DFA>DFA> "
3020   AL$="@81V9O4L16Q3" : AR$=AL$+"V4Q8R" : AC$="@94V8O5L16Q8"
3030 A4L$=AL$+" >D8<A8A8GA8AG8F8E8  G2&G8      C8CDE8"
3040 A4R$=AR$+" >D8<A8A8GA8AG8F8E8  G2&G8      C8CDE  "
3050 A4C$=AC$+" >D<A#AFAFGAFAGEFCEC GECGECGEGE C<A>CDEC"
3060 A5L$=AL$+"  F&F8D&D8A8 G&G8F&F8E8 F8CG&G8G#8  A8G8F8E8"
3070 A5R$=AR$+"  F&F8D&D8A8 G&G8F&F8E8 F8CG&G8G#8  A8G8F8E "
3080 A5C$=AC$+"  FCFD<A>DAF GEGFCFEC   FC<G>GEGG#F AFGEFDEC"
3090 A6L$=AL$+"  A&A8G&G8>C8<A&A8G&G8>D8 <F8DE&E8A8 G#&G#8G&G8C8"
3100 A6R$=AR$+"  A&A8G&G8>C8<A&A8G&G8>D8 <F8DE&E8A8 G#&G#8G&G8C "
3110 A6C$=AC$+"  ACAGEG>C<A  AFAGEG>D<A   FCDECEAF  G#FG#GEGC<G "
3120 A7L$=AL$+"  F&F8D&D8A8 G&G8F&F8E8 DD8DD8DD8CC8D4  "
3130 A7R$=AR$+"  F&F8D&D8A8 G&G8F&F8E8 DD8DD8DD8CC8D&D8"
3140 A7C$=AC$+"  FCFD<A>DAF GEGFCFEC   (D<A>F)3C<GE>D4"
3150 A8L$=AL$+"  F8A8>C8D2&D4 <F8A8>C8 F8E8D8C8 "
3160 A8R$=AR$+"  F8A8>C8D2&D4 <F8A8>C8 F8E8D8C  "
3170 A8C$=AC$+"  FCAF>C<A> D<AD>D<A>DAD D<ADA> <FCAF>C<G>FCECD<A>C<G>"
3180 A9L$=AL$+" >D8C4<A8>C4D8C4 C8C4 FRFERDC8 "
3190 A9R$=AR$+" >D8C4<A8>C4D8C4 C8C4 FRFERDC  "
3200 A9C$=AC$+" >D<A>C<GCGAF>C<GC>ED<G>C<GC>G C<G>C<CG>E FRFERDCR"
3210 A0L$=AL$+" >G8F8E8F4E8D8E4D8C8<A4>F8E4 "
3220 A0R$=AR$+" >G8F8E8F4E8D8E4D8C8<A4>F8E&E8 "
3230 A0C$=AC$+" >GEFDECFD<F>D ECD<A>EC<E>C D<A>C<GAF<A>F>FCEC "
3240 D1L$=AL$+" >D2&D8<A4>C8 D2&D8<A4>C8"
3250 D1R$=AR$+" >D2&D8<A4>C8 D2&D8<A4>C "
3260 D1C$=AC$+" (>D<AD)>D<ADA AFDF >C<G (>D<AD)>D<ADA AFDF >C<G"
3270 D2L$=AL$+" >D2&D8<A4>C8           E8F8E8<A4>F8E4"
3280 D2R$=AR$+" >D2&D8<A4>C8           E8F8E8<A4>F8E&E8 "
3290 D2C$=AC$+" (>D<AD)>D<ADAAFDF>C<G >ECFDEC<AFDA>FDEC<E>C "
3300 D3L$=AL$+" >D2&D8<A4>C8           D8E8F8G4F4E8"
3310 D3R$=AR$+" >D2&D8<A4>C8           D8E8F8G4F4E "
3320 D3C$=AC$+" (>D<AD)>D<ADAAFDF>C<G> D<A>ECFCGECEFD<A>DEC"
3330 D4L$=AL$+" >A4&A8 D4    F4>C8<    G32 A32&A&A4 D4 F4 >C8< "
3340 D4R$=AR$+" >A4&A8 D4    F4>C8<    G32 A32&A&A4 D4 F4 >C<  "
3350 D4C$=AC$+" >AFDFAFD<AFA>FC<F>CC<A>G32 A32FDFAFD<AFA>FC<F>CC<A>"
3360 D5L$=AL$+" >A4&A8 E4     F4C8       D8E8F8G4F4E8 Q8"
3370 D5R$=AR$+" >A4&A8 E4     F4C8       D8E8F8G4F4E  Q8"
3380 D5C$=AC$+" >AFDFAFEC<G>C FC<F>CC<G> D<A>ECFCGECEFC<A>CEC Q8"
3390 D5E$=AL$+" >V1 D1&D1           Q8"
3400 D5F$=AR$+" >V0 D1&D2&D4&D8&D   Q8"
3410 D6L$=AL$+"  F4&F8E4&E8D4&D8 A4A8G4F4  "
3420 D6R$=AR$+"  F4&F8E4&E8D4&D8 A4A8G4F8&F"
3430 D6C$=AC$+"  FC<A>FC<A>EC<G>CEC D<AF>D<AF> AFDA AF GECG FC<A>C  "
3440 D7L$=AL$+"  E4&E8C4&C8A2&A4 >C4<A#4"
3450 D7R$=AR$+"  E4&E8C4&C8A2&A4 >C4<A#8&A#"
3460 D7C$=AC$+"  EC<A>EC<A> C<GEG>C<G> AFDAFDAF AFDF  >C<GEG A#GEA#"
3470 D8L$=AL$+"  A8A#8A8F4&F8 D8F2&F8 F#32G32&G&G8F4  "
3480 D8R$=AR$+"  A8A#8A8F4&F8 D8F2&F8 F#32G32&G&G8F&F8"
3490 D8C$=AC$+"  AFA#GAFFC<A>CFCD<A> FC<A>FC<A>FC<A>C  GECE FC<A>C"
3500 D9L$=AL$+"  E8D8C#8<A#A8&A  G8F8E8 FRERGREARA#>C#RDRER"
3510 D9R$=AR$+"  E8D8C#8<A#A8&A  G8F8E8 FRERGREARA#>C#RDRE "
3520 D9C$=AC$+"  ECD<A>C#<GA#AFA GEFCEC FCECGEEAFA#>C#<G>D<A>EC"
3530   GL$="@34V6O3L16" : GR$="@34V3O3L16R8"
3540 G1L$=GL$+"  D1F1"
3550 G1R$=GR$+"  D1F2&F4&F8 "
3560 G2L$=GL$+" >C1<A2&A8 G8F8E8"
3570 G2R$=GR$+" >C1<A2&A8 G8F8  "
3580 G3L$=GL$+" F4D8E4C8D4<A#8>C4<A8 A#8>C8D8E8"
3590 G3R$=GR$+" F4D8E4C8D4<A#8>C4<A8 A#8>C8D8  "
3600 G4L$=GL$+" D4&D8E4&E8F4 >C8&C4<A4 A#8A8G8 Q8"
3610 G4R$=GR$+" D4&D8E4&E8F4 >C8&C4<A4 A#8A8   Q8"
3620 G5L$=GL$+" V1 F1>D1         "
3630 G5R$=GR$+" V0 F1>D2&D4&D8   "
3640 G6L$=GL$+" V1 E1 A2A#4>C4   "
3650 G6R$=GR$+" V0 E1 A2A#4>C8   "
3660 G7L$=GL$+" V1 A#4&A#8 A4&A8 F4&F2 G4F4"
3670 G7R$=GR$+" V0 A#4&A#8 A4&A8 F8&F2 G4F8"
3680 G8L$="@34V4O3L16  >D4<D8>C#4<E8A#8F8 L8 EAA#>C# DEFG  "
3690 G8R$="@34V2O3L16R >D4<D8>C#4<E8A#8F8 L8 EAA#>C# DEFG16 "
3700 G9$ ="@34V4O4L16  A4G8A4G8>C8<A8 A4G8A4>D8C#8<A#8 "
3710 G0$ ="@34V4O4L16  A4&A8D4F4G8F2E2"
3720 '
3730 C1L$="@109V6O5L16Q1 (FE8)4 C8C8  (FE8)4A8G8   Q8"
3740 C1R$="@109V4O5L16Q1 (DC8)4<A8A8> (DC8)4F8E8   Q8"
3750 C1E$="@109V6O5L16Q1 (FE8)4 C8C8  (FE8)4 C8 G8 Q8"
3760 C1F$="@109V4O5L16Q1 (DC8)4<A8A8> (DC8)4<A8>E8 Q8"
3770 C2$= "@109V6O4L16  (D<A>GAD<A>FA) (C<G>FGC<G>EG)"
3780 C3$= "@109V6O4L16  (<A#<F>>EF<A#<F>>DF) C<G>FGC<G>EG C<G>FGC<G>GE"
3790 C4$= "@109V6O4L16  (<A#>FEF<A#>FGF)3 <A#>FEF A#>GFE "
3800 C5$= "@109V6O4L16  (CGFGCGEG)3 CGFECA#AG "
3810 C5E$="@109V6O4L16  (CGFGCGEG)3  D8DC8CE8 "
3820 C6$= "@109V6O4L16Q1 FDEDFDEFDFEDFDED >D<CAC>C<CGACAFCGCEC Q8"
3830 C7$= "@109V6O4L16Q1 D<A#>E<A#>F<A#>GF<A#>FE<A#>D<A#>E<A#> "
3840 C7$= C7$+" DCECFCGFCFECGCDC Q8"
3850 E1$= "@27V5O4L16 (D<DA>C>F<AC>D<)(C<G<E>>>C<<G>G>CE<)"
3860 E2$= "@27V5O4L16 A#DF>A#<A>D<AD>(C<GE>>C<)<FAE>>C<EA<FC(>A<CE<F>)"
3870 E3$= "@115V6O4L32Q4(DR<D>RCR<G>R<AR<A>R>)4 CD<A>RCR<GRARER>CR<GR Q8"
3880 E3E$="@115V6O4L32Q4(DR<D>RCR<G>R<AR<A>R>)4 Q1L16 F8FE8EG8"
3890 E4$= "@71V6O4L16 >C4<A#4A4G8>C4C8<A#4A4G8 Q8"
3900 E5$= "@71V6O4L16  A4&A8D4&D8G4&G8C4&C8 F4E4 Q8"
3910  FL$="@81V9O4L16Q3":FR$=FL$+"V8Q4":FC$=FL$+"V4Q8R":F$="@94V9O5L16"
3920 F1$ =F$+ "(EC<A>EC<A> FC<A>CFC ) GECE FC<A>C "
3930 F1L$=FL$+"(E4&E8F4&F8)G4F4 "
3940 F1R$=FR$+"(C4&C8D4&D8)D4D4 "
3950 F1C$=FC$+"(E4&E8F4&F8)G4F&F8 "
3960 F2$ =F$+ "AFGEFCEC<A>C C<AFA> D<A>  EC EC<A>C FC<A>C GECE FC"
3970 F2L$=FL$+"A8G8F8E4 C4D8  D#32E32&E E4F4G4F8"
3980 F2R$=FR$+"F8E8D8C4<A4A#8>     C4&C8C4C4C8"
3990 F2C$=FC$+"A8G8F8E4 C4D8       E4&E8F4G4F "
4000 F3$ =F$+ "AFCFAF D<AF>D FC<A>F GE FC<A>FC<A>FC EC<A>E C<A>EC "
4010 F3L$=FL$+"A4&A8 D4  F4G8F2E2 "
4020 F3R$=FR$+"F4&F8<A#4>D4D8D2C2 "
4030 F3C$=FC$+"A4&A8 D4  F4G8F2E4&E8&E "
4040 F4$ =F$+ "V0 D<AF>D<AF>D<A F>D<AF>D<AFA> AFCA FCAF CAFC AFCF "
4050 F4L$=FL$+"Q8 D1V0A1   "
4060 F4R$=FR$+"Q8<A1&A1     "
4070 F4C$=FC$+"Q8 D1V0A2&A4&A8&A "
4080 F5L$=FL$+"Q7 V0>D1&D1        "
4090 F5R$=FR$+"Q7 V0 A1&A1         "
4100 F5C$=FC$+"Q8 V0>D1&D2&D4&D8&D"
4110 '
4120 B1$= "@81V9O2L16    D2&D4F4 G2C2"
4130 B2$= "@81V9O2L16    D2&D4C4 A2E2"
4140 B3$= "@28V11O3L16 (D8<A>)D8F8DG8DA8 C&C8C8CC8 FERC8EF8"
4150 B4$= "@28V11O3L16 <A#A#8A#RAA#8>(C&C8)C<E (F&F8)FG AA8A8>C<A8"
4160 B5$= "@28V11O3L16 <A#A#8A#RAA#8>(C&C8)CC# D2&D4 @96V7<G8A8"
4170 B6$= "@28V11O3L16 <A#&A#8A#AA#8A#8A#8A#A8A#8 AA#8GA#8AA#RA#A#8>C8D8"
4180 B7$= "@28V11O3L16  (CCR)CC<F>CC8F8E8 C&C8C8<A>C8 G8GF8FE8"
4190 B8$= "@28V11O3L16 <A#&A#8A#8AA#8 A#A#8A#8>D<A#8 >(C&C8)C8FE8C8DE8"
4200 B8E$="@28V11O3L16  DRCD8DRC8DRCD8D<A A#8AA#8A#8>D CC8C8<A>C8"
4210 B9$= "@28V11O3L16  DRD8CD8CD8<GG8EA8> DRD8CD8CD8<GG8A>C8"
4220 B9E$="@28V11O3L16  DRD8FRDGRG8DFRD<A> DRD8CD8CD4<A8   "
4230 B0$ ="@28V11O3L16 < A#8&A#4 A#8&A#2   A#8&A#4 A#8&A#4 A#4 "
4240 B0E$="@28V11O3L16 < A8&A4 A8&A4&A8A8  A8&A4 A8&A4 A4"
4250 B0F$="@28V11O3L16  (C#8&C#4)C#4 F4F&F8FRDE8E8E8"
4260 B11$="@28V11O3L16  CD8CD8CD8C<G8 A8>D8 C4C&C8CRCF8E8<A8"
4270 B12$="@28V11O3L16 <A#A#8AA#8A#A#8>D<A#8>C8D8 C4C&C8C8 FF8E8G8"
4280 B13$="@28V11O3L16  (CD8<D>D8)<A8>D8 (<A#>C8<C>C8)<G8>G8"
4290 B14$="@28V11O3L16  D1&D1"
4300 '
4310 '
4320 P1$= "@1V11O0L16  CRRRCRRRCRRRCRRR CRRRCRRRCRRCCRCR"
4330 Q1$= "@1V9 O0L16  CRRRCRRRCRRRCRRR CRRRRRRRRRRCCRCR"
4340 R1$= "@1V9 O0L16  CRRRCRRRCRRRCRRC CRRRCRRR (@1O0CR@9O3G]])]GR"
4350 S1$= "@1V11O0L16  CRRRRRRRRRRRRRRR RRRRRRRRRRRCCRCR"
4360 P2$= "@9V11O3L16  RRRRGRRGRGRRGRRR RRRRGRRGRGRRGR[[GG "
4370 Q2$= "@9V11O3L16  RRRRGRRRRRRRGRRR RRRRGRRGRG[[G]]RGR[[GR "
4380 R2$= "@9V11O3L16  RRRRGRRRRRRRGRRG RRRRGRGGRRGRC4"
4390 S2$= "@1V9 O3L16  RRRRRRRRRRRRRRRR G1"
4400 P3$= "@5V8 O6L16  RRGRRRGRGRRRRRGR RRGRRRGRGRRRRRGR "
4410 P4$= "@2V3 O7L16  (GGBG)G(G32)BGGGEG (GGBG)GGEG32G32 GEFG "
4420 P5$= "@1V5 O7L16  ((>B<C)<<C>>C>B<C)4" : PP6$="@5V7O3L16"
4430 P6$= PP6$+"R4C4>>B<<C>>B<<RCR>>GG<<RR>RB<C>>BRCB<<C>>B<<RCR[C[C"
4440 Q6$= PP6$+"R4C4>>B<<C>>B<<RCR>>B<<CRR>EB<CR>>B<<C>B<C@9V12O1GR@5V6>G"
4450 BP1$="@1V12O0L16 R1 CR@9V11O3GR(V7O6GV11O2G)@1V12O0CR@9V11O3GR<C>RGG"
4460 BP2$="@6V4 O6L16  (RRBR)3BRBR (BBBB]) BB]BB] B]B]B]B"
4470 BP3$="@5V8 O3L16  RRRRRRRR RRRRRRRR RRRRRRRR RRGRGRGR"
4480 BP4$="@1V8 O7L16  RRRRRRRR RRRRRRRR CCRCCRCC RCCRCRCR"
4490 BP5$="@9V11O3L16  R1 RRGR(V4O6GV8O2G) O3 RRGR<C>RGG"
4500 '
4510 '
4520 '
4530 PLAY A1L$,A1R$,A1C$,,,B1$
4540 PLAY A2L$,A2R$,A2C$,,,B1$
4550 PLAY A1L$,A1R$,A1C$,C1L$,C1R$,B1$,S1$,S2$,P5$
4560 PLAY A3L$,A3R$,A3C$,C1E$,C1F$,B2$,P1$,   ,P5$,BP5$
4570 PLAY A1L$,A1R$,A1C$,B3$ ,C2$,E1$,P1$,P4$
4580 PLAY A2L$,A2R$,A2C$,B4$ ,C3$,E2$,P1$,P4$
4590 PLAY A1L$,A1R$,A1C$,B3$ ,C2$,E1$,P1$,P4$
4600 PLAY A3E$,A3F$,A3G$,B5$ ,C3$,E2$,Q1$,P4$,BP2$
4610 PLAY A4L$,A4R$,A4C$,B3$ ,C2$,E1$,P1$,P2$,P3$,P4$
4620 PLAY A5L$,A5R$,A5C$,B4$ ,C3$,E2$,P1$,Q2$,P3$,P4$
4630 PLAY A6L$,A6R$,A6C$,B3$ ,C2$,E1$,P1$,P2$,P3$,P4$
4640 PLAY A7L$,A7R$,A7C$,B5$ ,C3$,E2$,Q1$,R2$,P3$,P4$,BP2$
4650 PLAY A8L$,A8R$,A8C$,B6$ ,C4$ ,E3$ ,P1$,   ,P4$
4660 PLAY A9L$,A9R$,A9C$,B7$ ,C5E$,E3E$,R1$,   ,P4$
4670 PLAY A8L$,A8R$,A8C$,B6$ ,C4$ ,E3$ ,P1$,P2$,P4$
4680 PLAY A0L$,A0R$,A0C$,B7$ ,C5$ ,E3$ ,Q1$,R2$,P4$
4690 PLAY D1L$,D1R$,D1C$,B3$ ,E4$,C6$,P1$,P2$,P3$,P4$
4700 PLAY D2L$,D2R$,D2C$,B8$ ,E5$,C7$,P1$,Q2$,P3$,P4$
4710 PLAY D3L$,D3R$,D3C$,B3$ ,E4$,C6$,P1$,P2$,P3$,P4$
4720 PLAY D4L$,D4R$,D4C$,B8$ ,E5$,C7$,Q1$,R2$,P3$,P4$
4730 PLAY D5L$,D5R$,D5C$,B8E$,,C8$,S1$,   ,   ,P4$,BP3$
4740 '
4750 PLAY B9$ ,G1L$,G1R$,D5E$,D5F$,,P1$,   ,P3$,P4$,P5$
4760 PLAY B9$ ,G2L$,G2R$,,,,P1$,   ,P3$,P4$,P5$,BP4$
4770 PLAY B9$ ,G3L$,G3R$,,,,P1$,P6$,P3$,P4$,P5$
4780 PLAY B9E$,G4L$,G4R$,,,,P1$,Q6$,P3$,P4$,P5$
4790 PLAY D6L$,D6R$,D6C$,B0$ ,G5L$,G5R$,S1$,P3$,P4$
4800 PLAY D7L$,D7R$,D7C$,B0E$,G6L$,G6R$,S1$,P3$,P4$,BP4$
4810 PLAY D8L$,D8R$,D8C$,B0$ ,G7L$,G7R$,P1$,P3$,P4$
4820 PLAY D9L$,D9R$,D9C$,B0F$,G8L$,G8R$,Q1$,P3$,P4$,BP1$
4830 PLAY F1L$,F1R$,F1C$,B11$,F1$,G9$,P1$,P6$,P3$,P4$
4840 PLAY F2L$,F2R$,F2C$,B12$,F2$,G0$,P1$,P6$,P3$,P4$
4850 PLAY F1L$,F1R$,F1C$,B11$,F1$,G9$,P1$,P6$,P3$,P4$
4860 PLAY F3L$,F3R$,F3C$,B12$,F3$,G0$,Q1$,Q6$,P3$,P4$
4870 PLAY F4L$,F4R$,F4C$,B13$,F4$,,P1$,P6$,P3$,P4$
4880 PLAY F5L$,F5R$,F5C$,B14$,,,S1$,Q6$,P3$,P4$,BP4$
4890 RETURN
4900 '
4910 '
4920 *S_46E
4930 'BOXING JUNKIE THEME  [ Loved Technology mix ]
4940 '
4950   AL$= "@49V8O4L16Q3" : AR$=AL$+"V4Q8R" : AC$= "@4V6O3L16 "
4960 A4L$=AL$+" >D8<A8A8GA8AG8F8E8  G2&G8      C8CDE8"
4970 A4R$=AR$+" >D8<A8A8GA8AG8F8E8  G2&G8      C8CDE  "
4980 A4C$=AC$+" >D<A#AFAFGAFAGEFCEC GECGECGEGE C<A>CDEC"
4990 A4E$="@16V8O4L16Q1   >R<A#RFAFGAFRREFRRC >D<A#ARRRGRRRDEFF#GG# Q8"
5000 A4F$="@16V2O4L16Q8R5 >D<A#AFAFGAFGDEFRRC >D<A#ARARGRFADEF90    Q8"
5010 A5L$=AL$+"  F&F8D&D8A8 G&G8F&F8E8 F8CG&G8G#8  A8G8F8E8"
5020 A5R$=AR$+"  F&F8D&D8A8 G&G8F&F8E8 F8CG&G8G#8  A8G8F8E "
5030 A5C$=AC$+"  FCFD<A>DAF GEGFCFEC   FC<G>GEGG#F AFGEFDEC"
5040 A5E$="@16V8O4L16Q1    RRFR<A>RAF GEGFRRRC  RR R RRRR F AFGEFDEC Q8"
5050 A5F$="@16V2O4L16Q8R5  FCFD<A>DAF GEGFCFEC  RR<G>GEGG#F AFGEF90  Q8"
5060 A6L$=AL$+"  A&A8G&G8>C8<A&A8G&G8>D8 <F8DE&E8A8 G#&G#8G&G8C8"
5070 A6R$=AR$+"  A&A8G&G8>C8<A&A8G&G8>D8 <F8DE&E8A8 G#&G#8G&G8C "
5080 A6C$=AC$+"  ACAGEG>C<A  AFAGEG>D<A   FCDECEAF  G#FG#GEGC<G "
5090 A6E$="@16V8O4L16Q1  >AR<RGRR>C<R RRAGRR>D<A   FRDECEAFG#FG#GEGC<G Q8"
5100 A6F$="@16V2O4L16Q8R5>AC<RGER>C<A ARAGEG>D<A   FCDECEAFG#FG#GE90   Q8"
5110 A7L$=AL$+"  F&F8D&D8A8 G&G8F&F8E8 DD8DD8DD8CC8D4  "
5120 A7R$=AR$+"  F&F8D&D8A8 G&G8F&F8E8 DD8DD8DD8CC8D&D8"
5130 A7C$=AC$+"  FCFD<A>DAF GEGFCFEC   (D<A>F)3C<GE>D4"
5140 A7E$="@16V8O4L16Q1   RRFR R RAF RRGFCFEC   (D<A>F)3C<GE>D4  Q8"
5150 A7F$="@16V2O4L16Q8R5 RRFR<A>RAF GEGFCFEC   (D<A>F)3C<GE>D90 Q8"
5160 A8L$=AL$+"  F8A8>C8D2&D4 <F8A8>C8 F8E8D8C8 "
5170 A8R$=AR$+"  F8A8>C8D2&D4 <F8A8>C8 F8E8D8C  "
5180 A8C$=AC$+"  FCAF>C<A> D<AD>D<A>DAD D<ADA> <FCAF>C<G>FCECD<A>C<G>"
5190 A9L$=AL$+" >D8C4<A8>C4D8C4 C8C4 F8E8D8C8"
5200 A9R$=AR$+" >D8C4<A8>C4D8C4 C8C4 F8E8D8C "
5210 A9C$=AC$+" >D<A>C<GCGAF>C<GC>ED<G>C<GC>G C<G>C<CG>E FCECD<A>C<G"
5220 A0L$=AL$+" >G8F8E8F4E8D8E4D8C8<A4>F8E4 "
5230 A0R$=AR$+" >G8F8E8F4E8D8E4D8C8<A4>F8E&E8 "
5240 A0C$=AC$+" >GEFDECFD<F>D ECD<A>EC<E>C D<A>C<GAF<A>F>FCEC "
5250 D1L$=AL$+" >D2&D8<A4>C8 D2&D8<A4>C8"
5260 D1R$=AR$+" >D2&D8<A4>C8 D2&D8<A4>C "
5270 D1C$=AC$+" (>D<AD)>D<ADA AFDF >C<G (>D<AD)>D<ADA AFDF >C<G"
5280 D2L$=AL$+" >D2&D8<A4>C8           E8F8E8<A4>F8E4"
5290 D2R$=AR$+" >D2&D8<A4>C8           E8F8E8<A4>F8E&E8 "
5300 D2C$=AC$+" (>D<AD)>D<ADAAFDF>C<G >ECFDEC<AFDA>FDEC<E>C "
5310 D3L$=AL$+" >D2&D8<A4>C8           D8E8F8G4F4E8"
5320 D3R$=AR$+" >D2&D8<A4>C8           D8E8F8G4F4E "
5330 D3C$=AC$+" (>D<AD)>D<ADAAFDF>C<G> D<A>ECFCGECEFD<A>DEC"
5340 D4L$=AL$+" >A4&A8 D4    F4>C8<    G32 A32&A&A4 D4 F4 >C8< "
5350 D4R$=AR$+" >A4&A8 D4    F4>C8<    G32 A32&A&A4 D4 F4 >C<  "
5360 D4C$=AC$+" >AFDFAFD<AFA>FC<F>CC<A>G32 A32FDFAFD<AFA>FC<F>CC<A>"
5370 D5L$=AL$+" >A4&A8 E4     F4C8       D8E8F8G4F4E8 Q8"
5380 D5R$=AR$+" >A4&A8 E4     F4C8       D8E8F8G4F4E  Q8"
5390 D5C$=AC$+" >AFDFAFEC<G>C FC<F>CC<G> D<A>ECFCGECEFC<A>CEC Q8"
5400 D6L$=AL$+" >D&D1"
5410 D6R$=AR$+" >D&D2&D4&D8&D"
5420 D6C$=AC$+" >D&D1"
5430 '
5440 '
5450 C1L$="@72V9O4L16    (FE8)4 C8C8  (FE8)4A8G8   Q8"
5460 C1R$="@72V3O4L16R10 (FE8)4 C8C8  (FE8)4A8G90  Q8"
5470 C1E$="@72V9O4L16    (FE8)4 C8C8  (FE8)4 C8 G8  Q8"
5480 C1F$="@72V3O4L16R10 (FE8)4 C8C8  (FE8)4 C8 G90 Q8"
5490 C1G$="@72V9O4L16    (FE8)4 C8C8  Q3@22O2 (CCR)4CRCR   Q8"
5500 C1H$="@72V3O4L16R10 (FE8)4 C8C8  Q3@22O2 (CCR)4CRC90  Q8"
5510 C2L$="@51V5O4L16    D>CD8<A8D>C8<D>D8<G8A8 CCRCG8CA8C>C8D8<G8"
5520 C2R$="@51V1O4L16R10 D>CD8<A8D>C8<D>D8<G8A8 CCRCG8CA8C>C8D8<G90"
5530 C3L$="@51V5O4L16    <A#R>GARDR>CRC<A8G8A8 FRFRFFRARG#ARG8A8"
5540 C3R$="@51V1O4L16R10 <A#R>GARDR>CRC<A8G8A8 FRFRFFRARG#ARG8A90"
5550 C3E$="@51V5O4L16    <A#R>GARDRGRGARD8G8 FRFRFFRARG#AR>C8<A8"
5560 C3F$="@51V1O4L16R10 <A#R>GARDRGRGARD8G8 FRFRFFRARG#AR>C8<A90"
5570 C3G$="@51V5O4L16    <A#R>GARDRGRGARD8G8 >D1 "
5580 C4$= "@79V7O5L16 <((A#R)>A#R<A#>ER<A#>FR<A#R>GR<)            Q8"
5590 C5$= "@79V7O5L16  CRCR<A#>C8E8FC8G8A8 <A#>CCR<A#>C8GRGG8F8E8 Q8"
5600 C6$= "@79V7O5L16    FDEDFDEFDFEDFDED >D<CAC>C<CGACAFCGCEC Q8"
5610 C7$= "@79V7O5L16    D<A#>E<A#>F<A#>GF<A#>FE<A#>D<A#>E<A#> "
5620 C7$= C7$+" DCECFCGFCFECGCDC Q8"
5630 '
5640 E1$= "@43V4O4L16 (D<DA>C>F<AC>D<)(C<G<E>>>C<<G>G>CE<)"
5650 E2$= "@43V4O4L16 A#DF>A#<A>D<AD>(C<GE>>C<)<FAE>>C<EA<FC(>A<CE<F>)"
5660 E2L$="@43V5O4L16     (A#DF>A#<A>D<AD)]]>C1"
5670 E2R$="@43V0O4L16 R10 (A#DF>A#<A>D<AD)  >C2&C4&C8"
5680 E3$= "@88V6O4L32(%L1DR<D>RCR<G>R%R1<AR<A>R>)4%CCD<A>RCR<GRARER>CR<GR"
5690 E4$= "@51V6O3L16 %L1>C4<A#4%R1A4G8>C4%L1C8<A#4%R1A4%CG8 Q8"
5700 E5$= "@51V6O3L16 %L1A4&A8%R1D4&D8%L1G4&G8%R1C4&C8%CF4E4 Q8"
5710 E6L$="@24V8O2L16 (%L1Q4DD>>Q1DRQ3<<DDR<A %L1GR>>Q1GGQ4<<G8GA>) Q8"
5720 E6R$="@24V8O1L16 (%R1Q4DD>>Q8D8DQ3<<DDR<A%R1 GR>>Q8GQ4<<GGA8>) Q8"
5730 E6E$="@24V8O2L16%L1 Q4DD>>DR<<DDR<A GR>>G<<G8GA8>(C[[C8[)4V6<AA>E8Q8"
5740 E6F$="@24V8O1L16%R1 Q2DD>>DRD<<DDR<A GR>>G<<GGA8>(C[[C8[)4V6<AA>E8Q8"
5750 '
5760 FL$="@21V11O5L16Q6" : FR$=FL$+"R5V3"
5770 F1L$=FL$+" %L1ARFRA#RGARAE8>CR<ER %R1 ARFRA#RGARAE8G8C8 Q8"
5780 F1R$=FR$+" %R1ARFRA#RGARAE8>CR<ER %L1 ARFRA#RGARAE8G90  Q8 "
5790 F1E$=FL$+" %L1ARFRA#RGARAE8>CR<ER%R1ARFRA#RGARAE8L32DD#EFF#GG#>C"
5800 F1F$=FR$+" %R1ARFRA#RGARAE8>CR<ER %L1 ARFRA#RGARAE8    D90  "
5810 F2L$="@5V8O4L16%L1 (G&G8)3GG8GRG8 (F&F8)3 DD8   ERF8  "
5820 F2R$="@5V8O4L16%R1 (E&E8)3EE8EREC (D&D8)3<A#A#8>CC#D8 "
5830 F2E$="@5V8O4L16%L1 (A&A8)3AA8ARA8 (G&G8)3GG8GRG8"
5840 F2F$="@5V8O4L16%R1 (F&F8)3FF8FRF8 (E&E8)3EE8ERE8"
5850 F3$= "@5V7O4L32Q3(%L1DR<D>RCR<G>R%R1<AR<A>R>)4%CC8CR<GRARER>CR<GR"
5860 F4L$="@24V9O3L16   Q1(%L1RRQ1DR>%R1DRD<D)3%CDDRDQ8@82O7G8@80Q1DR Q8"
5870 F4R$="@24V3O3L16R10Q1(%R1RRQ1DR>%L1DRD<D)3%CDDRDQ8@82O7G8@80Q1D90Q8"
5880 F5L$="@89V6O3L16   Q2 (%R1D%L1DR)4%CDRDR (%L1C%R1CR)4%CCRCR     Q8"
5890 F5R$="@89V2O3L16R5 Q3 (%L1D%R1DR)4%CDRDR (%R1C%L1CR)4%CC90      Q8"
5900 F5E$="@89V6O3L16   Q2<(%R1A#%L1A#R)4%CA#4 (%L1F%R1FR)4%C>CRCR    Q8"
5910 F5F$="@89V2O3L16R5 Q3<(%L1A#%R1A#R)4%CA#4 (%R1F%L1FR)4%C>C90     Q8"
5920 F5G$="@89V6O3L16   Q2<(%R1A#%L1A#R)4%CA#4 "
5930 F5H$="@89V2O3L16R5 Q3<(%L1A#%R1A#R)4%CA#4 "
5940 '
5950 '
5960 B$="@12V11O3L16"
5970 B1$= B$+"] DRD8CD8CD8<G8A8>C8 DRD8CD8CD8A8G8E8"
5980 B2$= B$+"] DRD8CD8CD8<G8A8>C8 DRD8CD8CD4<A8   "
5990 B2E$=B$+"] DRD8CD8CD8<G8A8>C8 D2< V5 R8G8AE>E8"
6000 B3$= B$+" D8>D8<DA8DG8DF8DG8 C8C8G8CF8CE8CR>C8"
6010 B4$= B$+"<A#>A#<A#8>FD8<A# C>CRC8CE<C >FRFRF4 AARA8A>C8"
6020 B5$= B$+"<A#>A#<A#8>FD8<A# C>CRC8CE C# D2&D4 V6 <G8A8"
6030 B6$= B$+ "<A#8>(A#8)<A#8>A#8<A#>A#8A#<A#>A#"
6040 B6$= B6$+"<G#A#>(A#8)<A#8>A#A#<A#>A#8A#>CD"
6050 B7$= B$+" C<A#>C8<G8>GG8FF8CEG<C> CR<CR>C&C8CRCC8E8G8"
6060 B8$= B$+"<A#8A#R>A#<A#8A#R>G<A#8>F8E8 CCRCC8CCR>C<C8F8E8"
6070 B8E$=B$+" DRCD8DRC8DRCD8D<A A#8AA#8A#8>D CC8C8<A>C8"
6080 B8F$=B$+" V7D1"
6090 B9$ ="@107V10O2L16Q6 D8F8RRRR<A8>C8RRR<A A#8>D8RRR<FG8A#8A8>E8  Q8"
6100 B9E$="@107V10O2L16Q6 D8F8RRRR<A8>C8RRR<A A#RRR RRRR RRRR A#A#AA Q8"
6110 B0$= "@27V7  O2L16Q6 (D&D8)D8 (>E8<E)G8  D&D8>D8<CD8 >E<E8 E8EG8"
6120 B0E$="@27V7  O3L16Q6 D8&D<D>DR<A8G8A8G8A>C D8&D<D>DR<A8G8&GD>G<GA8"
6130 '
6140 '
6150 P1$= "@2V14O1L16 CRRRCRRRCRRRCRRR CRRRCRRRCRRRCRCR"
6160 R1$= "@2V14O1L16 CRRRCRRRCRRRCRRR CRRRCRRCRRCRCRCR"
6170 Q1$= "@2V13O1L16 CRRRCRRRCRRRCRRR CRRRRRRRRRRCCRCR"
6180 S1$= "@2V14O1L16 C1 RRRRRRRRRRRCCRCR" : PP2$="@5V6O3L16"
6190 P2$= PP2$+"R4C4>>B<<C>>B<<RCR>>GG<<RR>RB<C>>BRCB<<C>>B<<RCR[C[C"
6200 Q2$= PP2$+"R4C4>>B<<C>>B<<RCR>>B<<CRR>EB<CR>>B<<C>B<C@9V12O1GR@5V6>G"
6210 S2$= PP2$+"R4C4>>B<<C>>B<<RCR>>B<<C R1"
6220 P3$= "@9V6 O2L16  RRGRRRGRGRRRRRGR RRGRRRGRGRRRRRGR "
6230 S3$= "@9V6 O2L16  RRGRRRGRGRRRRRGR RRRRRRRRRRRRRRRR "
6240 P4$= "@2V5 O7L16  FRFRFRFRFRFRFCFA32B32 FRFRFRFRFRFRFCFR"
6250 S4$= "@2V5 O7L16  FRFRFRFRFRFRFCFA32B32 FRRRRRRRRRRRRRRR"
6260 P5$= "@2V5 O7L16  ((>B<C)@4O3CO7@2C>B<C)4" : PE$="@3V3O5L16"
6270 P6$= PE$+"C8CO1C8O4G8>C8O7C8CO1C8O5C<G> C8CO1C8O4G8>C8O7CCCO2C8G<C"
6280 P7$= "@6V3 O6L8   RCRCRCRC16>C32C32< RCRCRCCC"
6290 S7$= "@6V3 O6L8   RCRCRCRC16>C32C32< RRRRRRRC"
6300 P8$= "@9V13O1L16  CRRCRRRRRRCRRRRC  CRRCRRRCRRCRRRCR"
6310 Q8$= "@9V13O1L16  CRRCRRRRRRCRRCRC  CRRCRRRCRRCRRRCR"
6320 S8$= "@9V13O1L16  C"
6330 P9$= "@9V9 O2L16  RRRRCRRCRCRRCRRR  RRRRCRRCRCRRCR[[[CC"
6340 BP1$="@1V8 O0L16 R1 CR@9V8O3GR(V4O6GV8O2G)@1V5O0CR@9V8O3GR<C>RGG"
6350 BP2$="@6V3 O6L16  (RRBR)3BRBR (BBBB]) BB]BB] B]B]B]B"
6360 BP3$="@5V8 O3L16  RRRRRRRR RRRRRRRR RRRRRRRR RRGRGRGR"
6370 BP4$="@9V7 O6L16  RRRRRRRR RRRRRRRR CCRCCRCC RCCRCRCR"
6380 '
6390 '
6400 '
6410 PLAY C2L$,C2R$,E1$,    ,    ,   ,S1$
6420 PLAY C3L$,C3R$,E2$,    ,    ,   ,S1$,BP4$
6430 PLAY C2L$,C2R$,E1$,C1L$,C1R$,   ,P1$,P3$,P4$
6440 PLAY C3E$,C3F$,E2$,C1E$,C1F$,   ,Q1$,P3$,P4$,BP3$
6450 PLAY C2L$,C2R$,E1$,C1L$,C1R$,B1$  ,P1$,P2$,P3$,P4$
6460 PLAY C3L$,C3R$,E2$,C1E$,C1F$,B2$  ,R1$,Q2$,P3$,P4$
6470 PLAY C2L$,C2R$,E1$,C1L$,C1R$,B1$  ,P1$,P2$,P3$,P4$
6480 PLAY C3G$,E2L$,E2R$,C1G$,C1H$,B2E$,S1$,S2$,S3$,S4$,BP3$,BP2$
6490 '
6500 PLAY A4L$,A4R$,A4C$,B3$ ,,E1$,P1$,P2$,P3$,P4$
6510 PLAY A5L$,A5R$,A5C$,B4$ ,,E2$,R1$,P2$,P3$,P4$
6520 PLAY A6L$,A6R$,A6C$,B3$ ,,E1$,P1$,P2$,P3$,P4$
6530 PLAY A7L$,A7R$,A7C$,B5$ ,,E2$,Q1$,Q2$,P3$,P4$,BP2$
6540 PLAY A8L$,A8R$,A8C$,B6$ ,C4$,E3$,P1$,   ,P4$
6550 PLAY A9L$,A9R$,A9C$,B7$ ,C5$,E3$,R1$,   ,P4$,BP3$
6560 PLAY A8L$,A8R$,A8C$,B6$ ,C4$,E3$,P1$,P2$,P4$
6570 PLAY A0L$,A0R$,A0C$,B7$ ,C5$,E3$,Q1$,Q2$,P4$
6580 PLAY D1L$,D1R$,D1C$,B3$ ,E4$,C6$,P1$,P2$,P3$,P4$
6590 PLAY D2L$,D2R$,D2C$,B8$ ,E5$,C7$,R1$,P2$,P3$,P4$
6600 PLAY D3L$,D3R$,D3C$,B3$ ,E4$,C6$,P1$,P2$,P3$,P4$
6610 PLAY D4L$,D4R$,D4C$,B8$ ,E5$,C7$,Q1$,Q2$,P3$,P4$
6620 PLAY D5L$,D5R$,D5C$,B8E$,   ,C8$,S1$,   ,P4$,BP3$
6630 PLAY B8F$,F1L$,F1R$,D6L$,D6R$,D6C$,P7$,P8$,P9$,P3$,P6$
6640 PLAY     ,F1L$,F1R$,    ,    ,    ,P7$,Q8$,P9$,P3$,P6$
6650 PLAY B9$ ,F1L$,F1R$,    ,    ,    ,P7$,P8$,P9$,P3$,P6$
6660 PLAY B9E$,F1E$,F1F$,    ,    ,    ,P7$,Q8$,P9$,P3$,P6$
6670 PLAY B9$ ,F1L$,F1R$,F2L$,F2R$,F3$,P7$,P8$,P9$,P3$,P4$,P1$
6680 PLAY B9$ ,F1L$,F1R$,F2L$,F2R$,F3$,P7$,Q8$,P9$,P3$,P4$,Q1$
6690 PLAY B9$ ,F1L$,F1R$,F2L$,F2R$,F3$,P7$,P8$,P9$,P3$,P4$,P1$
6700 PLAY B9E$,F1E$,F1F$,F2E$,F2F$,F3$,P7$,Q8$,P9$,P3$,P4$,Q1$
6710 PLAY ,,,,E1$,F3$,P7$,P8$,P9$,P3$,P4$,P2$
6720 PLAY ,,,,E2$,F3$,P7$,Q8$,P9$,P3$,P4$,Q2$
6730 PLAY ,,C1L$,C1R$,E1$,F3$,P7$,P8$,P9$,P3$,P4$,P2$,P1$
6740 PLAY ,,C1E$,C1F$,E2$,F3$,P7$,S8$,P9$,S3$,P4$,S2$,S1$,BP1$
6750 PLAY E6L$,E6R$,F4L$,F4R$,B0$ ,F3$,P1$,P3$,P4$,P7$
6760 PLAY E6E$,E6F$,F4L$,F4R$,B0$ ,F3$,P1$,S3$,S4$,S7$,BP4$
6770 PLAY E6L$,E6R$,F4L$,F4R$,B0$ ,F3$,P1$,P3$,P4$,P7$
6780 PLAY E6E$,E6F$,    ,    ,B0E$,F3$,S1$,S3$,S4$,S7$,BP3$,BP2$
6790 PLAY E6L$,E6R$,F4L$,F4R$,A4E$,A4F$,P7$,P8$,P9$,P3$
6800 PLAY E6E$,E6F$,F4L$,F4R$,A5E$,A5F$,S7$,Q8$,P9$,S3$
6810 PLAY E6L$,E6R$,F4L$,F4R$,A6E$,A6F$,P7$,P8$,P9$,P3$
6820 PLAY E6E$,E6F$,F4L$,F4R$,A7E$,A7F$,P7$,Q8$,P9$,P3$
6830 PLAY F5L$,F5R$,F4L$,F4R$,A4E$,A4F$,S8$
6840 PLAY F5E$,F5F$,F4L$,F4R$,A5E$,A5F$
6850 PLAY F5L$,F5R$,F4L$,F4R$,A6E$,A6F$
6860 PLAY F5G$,F5H$,    ,    ,A7E$,A7F$
6870 RETURN
6880 '
6890 '
6900 *S_58
6910 'SWEETEST SOMETHING
6920 '
6930 DL$="@71V11O4L8 " : DR$=DL$+"V4 " : DC$="@96V5O2L8Q8"
6940 D1L$=DL$+"   >C16D16C4<EG2A4GFC4D4"
6950 D1R$=DR$+"A10>C16D16C4<EG2A4GFC4D "
6960 D1C$=DC$+"   >C2<E4&EEF4&FFF#4&F#F#"
6970 D2L$=DL$+"    E4A4B4>C4< E4&ED16E16 D4G4"
6980 D2R$=DR$+"C10 E4A4B4>C4< E4&ED16E16 D4G "
6990 D2C$=DC$+"    A4&AAG&G4G F2G4>D4"
7000 D3L$=DL$+"    E4F4G&G16F&F16E C2G4B4"
7010 D3R$=DR$+"C10 E4F4G&G16F&F16E C2G4B "
7020 D3C$=DC$+"    A4&AAG&G4G F&F4FG4DG"
7030 D4L$=DL$+"   >RC<E16FG4&G&G16E A4C16DE&E16 &EC4"
7040 D4R$=DR$+"R10>RC<E16FG4&G&G16E A4C16DE&E16 &EC8&C90"
7050 D5L$=DL$+"    G4FC G4FC G4FE G4B4"
7060 D5R$=DR$+"C10&C4FC G4FC G4FE G4B&B90"
7070 D5E$=DL$+"    F4B4>C4D4C2 GFEF"
7080 D5F$=DR$+"R10 F4B4>C4D4C2 GFEF90"
7090 D6L$=DL$+"   >E4&ED16C4&C&C16<B16>C16D4<G4>FEDE"
7100 D6R$=DR$+"R10>E4&ED16C4&C&C16<B16>C16D4<G4>FEDE90"
7110 D7L$=DL$+"   >C2&C4&C<G >E4G4FE D E"
7120 D7R$=DR$+"    A2&A4&A&A >C4E4DC<B>C"
7130 D8L$=DL$+"   >[[A4&A]]C2<B> C4D4EDC<B>  "
7140 D8R$=DR$+"R10>[[A4&A]]C2<B> C4D4EDC<B90 "
7150 D9L$=DL$+"    G#4A#4G#8G4F4  &F2 D8D#8F8 "
7160 D9R$=DR$+"R10 G#4A#4G#8G4F4  &F2 D8D#8F90 "
7170 D9E$=DL$+"    G4 G#4G8 F4D#4 &D#2&D#8 D#4"
7180 D9F$=DR$+"R10 G4 G#4G8 F4D#4 &D#2&D#8 D#8&D#90"
7190 D9G$=DL$+"    A#4G#4G8F4D#4  &D#2 A#8>C8D8"
7200 D9H$=DR$+"R10 A#4G#4G8F4D#4  &D#2 A#8>C8D90"
7210 D9I$=DL$+"    >D#4F4D#8D8&D D#&D#4&D#8 <A#>C<A#8D#8F8G1"
7220 D9J$=DR$+"R10 >D#4F4D#8D8&D D#&D#4&D#8 <A#>C<A#8D#8F8G1"
7230 '
7240 EL$="@32V9O3L8" : ER$=EL$+"V3"
7250 E1L$=EL$+"    A#2>C4DD#& D#2F&F16D#&D#16F"
7260 E1R$=ER$+"R10 A#2>C4DD#& D#2F&F16D#&D#16F90"
7270 E1E$=EL$+"    >G2&G4FD# &D#2 D4D#4"
7280 E1F$=ER$+"R10 >G2&G4FD# &D#2 D4D#8"
7290 E1G$=EL$+"L16    >A#RG#RGRG#GRFD#RDRD#R D#1"
7300 E1H$=ER$+"L16R10 >A#RG#RGRG#GRFD#RDRD#R D#2"
7310 E2L$=EL$+"L16    >D#2&D#8<G4G#8A#2 >F8&FD#8&D#D8"
7320 E2R$=ER$+"L16R10 >D#2&D#8<G4G#8A#2 >F8&FD#8&D#D90"
7330 E2E$=EL$+"L16    >DRD#4&D#2F8 GRRRFRRRD#RRRDRRR"
7340 E2F$=ER$+"L16R10 >DRD#4&D#2F8 GRRRFRRRD#RRRDR  "
7350 E2G$=EL$+"L16    >DRD#4<A#4&A#8>DRD#4<A#4&A#8G#8G8G#8"
7360 E2H$=ER$+"L16R10 >DRD#4<A#4&A#8>DRD#4<A#4&A#8G#8G8G#90"
7370 E2I$=EL$+"L16     G1&G2&G8 @71V11O4 D#8F8G8"
7380 E2J$=ER$+"L16R10  G1&G2&G8 @71V3 O4 D#"
7390 AL$="@71V6O4L8" : AR$=AL$+"V2"
7400 E3L$=AL$+"    RG8G#4 G&G16F&F16D#4  G8G#4 G&G16F&F16G8 "
7410 E3R$=AR$+"R10 RG8G#4 G&G16F&F16D#4  G8G#4 G&G16F&F16G90"
7420 E3E$=AL$+"    A#2&A#4 G#G4 G8G#4 G&G16F&F16D#"
7430 E3F$=AR$+"R10 A#2&A#4 G#G4 G8G#4 G&G16F&F16D#90"
7440 E3G$=AL$+"   >D#4&D#<G#4&G#A#4> D4&D D#4&D#F4 "
7450 E3H$=AR$+"R10>D#4&D#<G#4&G#A#4> D4&D D#4&D#F8 "
7460 E4L$=AL$+"    A#2&A#4 G#4 G4&GF4&FD#4"
7470 E4R$=AR$+"R10 A#2&A#4 G#4 G4&GF4&FD#8"
7480 E4E$=AL$+"    F4&FG2&G &G4A#4>C4D4"
7490 E4F$=AR$+"R10 F4&FG2&G &G4A#4>C4D "
7500 E5L$=AL$+"    >D#4&D#F4&FD#4 D4&DC4&CD4"
7510 E5R$=AR$+"R10 >D#4&D#F4&FD#4 D4&DC4&CD8"
7520 E5E$=AL$+"    >F4&FG4&GC4 F4&FG4&GG#4"
7530 E5F$=AR$+"R10 >F4&FG4&GC4 F4&FG4&GG#8"
7540 E6L$=AL$+"    >G2&G4F D#&D#1"
7550 E6R$=AR$+"R10 >G2&G4F D#&D#2&D#4&D#"
7560 '
7570 CL$="@32V3O4L16 " : CR$=CL$+"V3 "
7580 C1L$=CL$+"L8       CG>DE<<EB>EG<F>CGA<F#>CF#C"
7590 C1R$=CR$+"L8[[[R10 CG>DE<<EB>EG<F>CGA<F#>CF#C90"
7600 C2L$=CL$+"L8       <A>EB>C<<G>DAC<F>CGA<GD>GB  "
7610 C2R$=CR$+"L8[[[R10 <A>EB>C<<G>DAC<F>CGA<GD>GB90"
7620 C3L$=CL$+"  ]]  R8ERG4F&F8E&E8F8E&E8 D&D8C8<B&B8>C&C8D8"
7630 C3R$=CR$+"  ]]  R8CRE4D&D8C&C8D8C&C8<B&B8A8 G&G8 A&A8B8"
7640 C4L$=CL$+"  ]]  E2F2G2F2"
7650 C4R$=CR$+"  ]]  C2D2E2D2"
7660 C5L$=CL$+"  ]]  G1F2E&E8 D&D8 E8"
7670 C5R$=CR$+"  ]]  E1D2C&C8<B&B8>C8"
7680 C6L$=CL$+"  ]]  D4&D8C2<B8> C2 G2"
7690 C6R$=CR$+"  ]] <B4&B8A2 G8  A2>E2"
7700 C7L$=CL$+"@72%L1    G4&G8G#4&G#8A#4 G#4&G#8G4&G8F4"
7710 C7R$=CR$+"@72%R1    D#4&D#8F4&F8G4  F4&F8 D#4&D#8D4"
7720 C7E$=CL$+"@72%L1    D#2A#2 D2  G4 G#8A#8"
7730 C7F$=CR$+"@72%R1    C2 G2 <A#2>D#4F8 G8 "
7740 C8L$=CL$+"@72%L1   >C4&C8< F4&F8G4  G#4&G#8G4&G8  F4"
7750 C8R$=CR$+"@72%R1    G#4&G#8D4&D8D#4 F4&F8  D#4&D#8D4"
7760 C8E$=CL$+"@72%L1   >D#8 F8G8 F4D#8D4  D#1"
7770 C8F$=CR$+"@72%R1   >C8  D8D#8D4C8<A#4>C1"
7780 '
7790 B1$ ="@12V6O3L16 (D#8&D#D#>D#8<D#8&D#>D#<D#8>D#8<D#D#)"
7800 B1E$="@12V6O3L16  G#8&G#G#>D#8<G#8&G#>D#<G#8>D#8<G#D# "
7810 B1E$=B1E$+" G#8&G#G#>D#8<G#8&G#>F<A#8A#8>A#8"
7820 B2$ ="@12V6O3L16 >C8<B>CG8C< EREG8B8>C8< FRFR>F<FRF R>C<C8C8C8"
7830 B2E$="@12V6O3L16 <F>RF8EFRF EREERBAG F8FREFRF GRDGRD>D8"
7840 B3$ ="@12V6O3L16  C8>C8<(C>C8<)4 <GD>G8<G>G8<G >G#8<G#>G#8<G#>G#8<"
7850 B3E$="@12V6O3L16 <AR>A8A8<A8>AA<A>A8A<A>A< F8>F8<F>F8<F> G8<(G>G8<)"
7860 B3F$="@12V6O3L16 <A1F2G2"
7870 B4$ ="@12V6O3L16 >CRC8<A#>C8CCR>G<C8>D#<C8<(A#8)A#R(A#)>F8&FD#8&D#D8"
7880 B4E$="@12V6O3L16  G#RRRG#8&G#G#R>G#<G#8>D8<G#8 (A#8)>F4D#8&D#D8&DF8"
7890 B4F$="@12V6O3L16  D#4D#8&D#D#RDD#8D#8D#>D#< D#1"
7900 B5$ ="@70V6O2L16  G#4&G#8G#8G#2 A#4&A#8A#8A#4F4"
7910 B5E$="@70V6O2L16  D#4&D#8D#8D#2 G4&G8GR G8D#8F8G8"
7920 B5F$="@70V6O2L16 >C2<A#2 G#4&G#8G#8 A#4 F4 D#1"
7930 '
7940 P1$= "@9V7 O1L16 CRRRCRRRCRRRCRRR CRRRCRRRCRRRCRRR"
7950 S1$= "@9V7 O1L16 C1               RRRRRRRRRRRC @1V2<C> @2V5RCR"
7960 SS1$="@9V7 O1L16 C1               "
7970 P2$= "@2V8 O4L16 RRRRGRRRRRRRGRRG RRRRGRRRRBRRGRRG"
7980 Q2$= "@2V8 O4L16 RRRRGRRRRRRRGRRG RRRRGRRGRBRRGR[[[GG"
7990 P3$= "@9V4 O6L16 FRFRFRFRFRFRFRF(A32) FRFRFRFRFRCRFRFR"
8000 P4$= "@2V4 O3L16 CRRGRRRGCRRGRRRG RRGRRRRGCRRGRRGR"
8010 P1E$="@2V9 O1L16 CRRRRRRR RRRRRRRC CRCRRR<@1V2 GRRRRRRRRR"
8020 P2E$="@2V14O4L16 RRRRRRRR GRRRRRRR RRRRRRRR    GRRG@4V3O2C @2V7O4RCR"
8030 BP1$="@2V8 O4L16 RRRRRRRR RRRRRRRR RRRRRRRR RRRRGR[[GG"
8040 BP2$="@1V5 O5L16 RRRRRRRR BBRRBBRR CGGRGRGGRGGRGRGR"
8050 '
8060 '
8070 '
8080 PLAY D1L$,D1R$,D1C$,C1L$,C1R$
8090 PLAY D2L$,D2R$,D2C$,C2L$,C2R$
8100 PLAY D1L$,D1R$,D1C$,C1L$,C1R$,,S1$
8110 PLAY D3L$,D3R$,D3C$,C2L$,C2R$,,P1$,BP1$
8120 '
8130 PLAY D4L$,D4R$,B2$ ,C3L$,C3R$,,P1$,P2$,P3$
8140 PLAY D5L$,D5R$,B2E$,C4L$,C4R$,,P1$,Q2$,P3$
8150 PLAY D4L$,D4R$,B2$ ,C3L$,C3R$,,P1$,P2$,P3$
8160 PLAY D5E$,D5F$,B2E$,C4L$,C4R$,,P1$,Q2$,P3$
8170 PLAY D6L$,D6R$,B3$ ,C5L$,C5R$,,P1$,P2$,P3$
8180 PLAY D7L$,D7R$,B3E$,C6L$,C6R$,,P1$,Q2$,P3$
8190 PLAY D6L$,D6R$,B3$ ,C5L$,C5R$,,P1$,P2$,P3$
8200 PLAY D8L$,D8R$,B3F$,C6L$,C6R$,,S1$,Q2$,P3$
8210 '
8220 PLAY E1L$,E1R$,B1$ ,E3L$,E3R$,,P1$,P2$,P3$,P4$
8230 PLAY E1E$,E1F$,B1E$,E3E$,E3F$,,P1$,Q2$,P3$,P4$
8240 PLAY E1L$,E1R$,B1$ ,E3L$,E3R$,,P1$,P2$,P3$,P4$
8250 PLAY E1G$,E1H$,B1E$,E3G$,E3H$,,P1$,Q2$,P3$,P4$,BP1$
8260 PLAY E2L$,E2R$,B4$ ,E4L$,E4R$,,P1$,P2$,P3$,P4$
8270 PLAY E2E$,E2F$,B4E$,E4E$,E4F$,,P1$,Q2$,P3$,P4$
8280 PLAY E2L$,E2R$,B4$ ,E5L$,E5R$,,P1$,P2$,P3$,P4$
8290 PLAY E2G$,E2H$,B4E$,E5E$,E5F$,,P1$,Q2$,P3$,P4$
8300 PLAY E2I$,E2J$,B4F$,E6L$,E6R$,,P1$,   ,P3$,P4$,BP1$
8310 PLAY D9L$,D9R$,B5$ ,C7L$,C7R$,,SS1$
8320 PLAY D9E$,D9F$,B5E$,C7E$,C7F$
8330 PLAY D9G$,D9H$,B5$ ,C8L$,C8R$
8340 PLAY D9I$,D9J$,B5F$,C8E$,C8F$
8350 RETURN
8360 '
8370 '
8380 *S_59
8390 'LOOM WORK
8400 '
8410 A$="@17V7O3L16" : D$=A$+""
8420 A1$= A$+" D1  G&G&G&G&G&G E&E C4E4"
8430 D1$= A$+" RF1 RR    F&F&F&F&F E4G4       "
8440 D1E$=A$+" [[>RRRRRRRR G&G&G&G&G&GE1       "
8450 D1F$=A$+" [[>RRRRRRRR RRR   F1       "
8460 A2$= A$+" D1  G&G&G&G &G&G&G&G  <A&A&A&A>  E4      "
8470 D2$= A$+" RF1 [[[RER RRER ]]]   RRR R32D32 C4     "
8480 D2E$=A$+"L8 [[>>RRRR A#&A#F&F<A#&A#F&F<A#&A#F&F       "
8490 D2F$=A$+"L8 [[>>RRRR R  A&AD&D<A&AD&D <A&AD     "
8500 D2G$=A$+"L8 [[>>RRRR A# AFD<A#AFD<A#AFD       "
8510 A3$= A$+" D4&D8F4&FC4&C       D4&D8F&F  ]>CRRR<[A4"
8520 D3$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 ] A8RR [E4"
8530 A4$= A$+" D4&D8F4&FC4&C       D4&D8F&F  CC8CE4"
8540 D4$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 E4G4  "
8550 A5$= A$+" D4&D8F4&FC4&C       D4&D8F&F    RRRR    A#RRR"
8560 D5$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 [[[CC8C]]] GRRR"
8570 A6$= A$+" RRG&G&G&GE&E&EG&G&GE&E&E&E>D2 &D&DG&G&G&GE&E"
8580 D6$= A$+" RRE&E F&F&FG&G&G&GF&F&FF&F>F2 &F&FRR  F&F&F&F "
8590 A7$= A$+" L8 >D&D&D&D&D&D C&C &C&C&C&C&C[[[F&F&F"
8600 D7$= A$+" L8 >F&F&F&F&F&F&F D &D&D&D&D&D&D[[[RF"
8610 A8$= A$+"<A#&A#8&A#&A#8>D4&D8E8&E8  C#&C#8D&D8&D4G8&G8G8"
8620 D8$= A$+" RRR   C&C8&C4F8&F8&D8     <A&A8&A&A8>E4&E8F8&F8   "
8630 A9$= A$+" RRA8&A8D&D8F8&FF8&F8 C#8&C#8E8G&G&G8E8&E8E8"
8640 D9$= A$+" RRDRF8&FF8&F8D&D8G8 &G8 D8&D8C#F&F8&F8D8&D8 "
8650 A10$=A$+" RRA&A4A#4G&G8G8  &GD8D&D8<A#4F4A8"
8660 D10$=A$+" RRF8G&G8G8A&A8F4 C#8C#8E&E8<A&A4C#4 "
8670 A11$=A$+" RRA&A4A#4G&G8G8 &GD8D&D8D&D8<A8>D&D8A8 "
8680 D11$=A$+" RRF8G&G8G8A&A8F4 C#8C#8 G&G8ER C#&C#8E4 "
8690 A12$=A$+"@16V4> RRG&G&G&GE&E&EG&G&GE&E&E&E>D2 &D&DG&G&G&GE&E"
8700 D12$=A$+"@16V4> RRE&E F&F&FG&G&G&GF&F&FF&F>F2 &F&FRR  F&F&F&F "
8710 A13$=A$+"@16V4> L8 >D&D&D&D&D&D C&C &C&C&C&C&C[[[F&F&F"
8720 D13$=A$+"@16V4> L8 >F&F&F&F&F&F&F D &D&D&D&D&D&D[[[RF"
8730 A14$=A$+"@16V4><A#&A#8&A#&A#8>D4&D8E8&E8  C#&C#8D&D8&D4G8&G8G8"
8740 D14$=A$+"@16V4> RRR   C&C8&C4F8&F8&D8     <A&A8&A&A8>E4&E8F8&F8   "
8750 A15$=A$+"@16V4> RRA8&A8D&D8F8&FF8&F8 C#8&C#8E8G&G&G8E8&E8E8"
8760 D15$=A$+"@16V4> RRDRF8&FF8&F8D&D8G8 &G8 D8&D8C#F&F8&F8D8&D8 "
8770 '
8780 C1$="@15V3O4L16Q8  DF8DF8DFDFD8C<A8>C32C#32 DF8DF8DFDFD8AE8C"
8790 C2L$="@15V5O4L16  <D>RERF4EFRF8EF4    ERF4EFRF8AE8"
8800 C2R$="@15V4O4L16   R RCRD4CDRD8CD8&DD CRD4CDRD8EC8"
8810 C2E$="@15V5O4L16  <D>RERF4EFRF8EF4    ERF4EFRF>CR<A#A"
8820 C2F$="@15V4O4L16   R RCRD4CDRD8CD8&DD CRD4CDRD AR G F"
8830 C3L$="@15V5O4L16 <D8>F8F8<D8>FF<D>F8F<D>F<C#8>E8(<C#>E8)<C#>A8<C#>G8"
8840 C3R$="@15V4O4L16  R8D8D8R8DDRD8DRD<R8>C#8       ( RC#8)  RF8RE8"
8850 C3E$="@15V5O4L16 <CF>E8(<C>E8)4< <B8>>D8<<(B>>D8<<)4"
8860 C3F$="@15V4O4L16  R8 C8( R C8)4<  R8  B8  (R  B8  )4"
8870 C3G$="@15V5O4L16 <<A#8>>D8 (<<A#>>D8 )4<<A8>>C#8(<<A>>C#8)3<<A>>A8"
8880 C3H$="@15V4O4L16 <<R8>  A#8(  R   A#8)4  R8  A8 (  R  A8 )3<<R>>F8"
8890 C3I$="@15V5O4L16 <<A#8>>D8 (<<A#>>D8 )4< C8>E8<(C>E8<)C>A8<C>G8< "
8900 C3J$="@15V4O4L16 <<R8>  A#8(  R   A#8)4  R8>C8 (R C8 )R F8 R E8 "
8910 C4L$="@15V5O4L8    <DFA>DFA>DF <C#EA>C#EAGC#   "
8920 C4R$="@15V1O4L8R10 <DFA>DFA>DF <C#EA>C#EAGC#90 "
8930 C4E$="@15V5O4L8    <CEG>CEG>CE <<B>DGB>DGB>D"
8940 C4F$="@15V1O4L8R10 <CEG>CEG>CE <<B>DGB>DGB>D90"
8950 C4G$="@15V5O4L8    <A#>DFA#>DFA#>D<<< A>C#EA>C#EA>C#"
8960 C4H$="@15V1O4L8R10 <A#>DFA#>DFA#>D<<< A>C#EA>C#EA>C#90"
8970 C4I$="@15V5O4L8    <A#>DFA#>DFA#>D<<< CEG>CEA>DA"
8980 C4J$="@15V1O4L8R10 <A#>DFA#>DFA#>D<<< CEG>CEA>DA90"
8990 C5L$="@17V5O3L16    G#32A32&A&A4>C8&C4D4 G#32A32&AG4F4D4C8 "
9000 C5R$="@17V1O3L16R10 G#32A32&A&A4>C8&C4D4 G#32A32&AG4F4D4C90"
9010 C5E$="@17V5O3L16   >D2&D8<A4>C8 D2E2"
9020 C5F$="@17V1O3L16R10>D2&D8<A4>C8 D2E4&E8"
9030 C5G$="@17V5O3L16   >F8&F4    E8&E4F4  G8F4E4 F4F8"
9040 C5H$="@17V1O3L16   >D8&D4&D10E8&E4F4  G8F4E4 F4F90"
9050 C5I$="@17V5O3L16   >F8&F4E8&E4F4  A4&A8 G#4&G#8 G4"
9060 C5J$="@17V1O3L16   >D8&D4C8&C4C4  E4&E8 E4&E8   D4"
9070 C6L$="@17V5O3L8    >>A#AGFEDC#<A32A#32&A#16AGFD#32E32&E16DC#DE"
9080 C6R$="@17V1O3L8R10 >>A#AGFEDC#<A32A#32&A#16AGFD#32E32&E16DC#DE90"
9090 C6E$="@17V5O3L16   >E&E8A#8&A#A8G8&G8E8&E8 E8 A4F4&F8 &F8>D8"
9100 C6F$="@17V5O3L16   >RF8 G8 &G F8E8 F8&F8F8 G8&G4D4&D8 >D4"
9110 C6G$="@17V5O3L16  >>C#8D8(C#8D)C#8E8FC  C#8D8(C#8D)C#4< E8"
9120 C6H$="@17V5O3L16   >R8A#8(R8A#)A8>C8D8< A8A#8(A8A#)A8 G8C8"
9130 C6I$="@17V5O3L16   >C#     E8F8&F A#8A8G8&G8E8 F8F8G8&G D8&D D8G8E8"
9140 C6J$="@17V5O3L16   >R32D32&D8D8&D G8 F8E8F8&F8 DED8E8A#&A#8A&A8E8C8"
9150 F1$= "@107V4O3L16 Q2 DDRDAR<A>R DDRDARGR DDRDARRR DDRD<AR>CR Q8"
9160 F2L$= "@16V3O4L16    ERFRE8FEREF8E8FD  ERFRE8FEREF8E8F8   "
9170 F2R$= "@16V0O4L16R10 ERFRE8FEREF8E8FD  ERFRE8FEREF8E8F90  "
9180 F2E$= "@16V3O4L16    FRGRF8GFRFG8F8GF# FRGRF8GFRFG8>C8<E8 "
9190 F2F$= "@16V0O4L16R10 FRGRF8GFRFG8F8GF# FRGRF8GFRFG8>C8<E90"
9200 F3L$= "@16V4O4L16    A#AGF&F8ERDRRERRF8 DRERFRDE8FR<A>G#32A32&AG8 "
9210 F3R$= "@16V1O4L16R10 A#AGF&F8ERDRRERRF8 DRERFRDE8FR<A>G#32A32&AG90"
9220 F3E$= "@16V4O4L16    A2&A4&A8 FG A8GF8ERD <A8&A>G8&GE8"
9230 F3F$= "@16V1O4L16R10 A2&A4&A8 FG A8GF8ERD <A8&A>G8&GE90"
9240 F4L$= "@16V4O4L16    F1G1      "
9250 F4R$= "@16V1O4L16R10 F1G2&G4&G8"
9260 F4E$= "@16V4O4L16    A1 >C#32D32&D C#<A#8&A#A8 G8F8E8F8 "
9270 F4F$= "@16V1O4L16R10 A1 >C#32D32&D C#<A#8&A#A8 G8F8E8F90"
9280 F4G$= "@16V3O4L16    E&E8F&F8D1"
9290 F4H$= "@16V0O4L16R10 E&E8F&F8D1"
9300 B1$= "@28V7O3L16 DRDRDRDD <ARARARAA GRGRGRGG ARAR>CRCC "
9310 B2$= "@28V7O3L16 DRDRDRDD <ARARARAA GRGRGRGG ARAR>CR<A#A "
9320 B2E$="@28V5O3L16 D4"
9330 B3$= "@28V7O3L16 DDRDDRD>D<R>D<DRDRDR (C#C#R)3>C#<C#RC#RC#R"
9340 B4$= "@28V7O3L16 CCRCCRC>C<R>C<CRCRCR<(BBR)3>D<BRBRBR"
9350 B5$= "@28V7O3L16<(A#A#R)3>A#<A#RA#RA#R(AAR)A>A<R>A<ARARAR "
9360 B6$= "@28V7O3L16<(A#A#R)A#>A#<R>A#<A#RA#RA#R>(CCR)C>C<R>C<CRCRCR"
9370 B7$= "@28V7O3L16 FRRF RRFR RRFR FRFR C#RRC#RRC#RRRC#RC#RC#R"
9380 '
9390 P1$= "@1V7 O0L16  GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRRR"
9400 R1$= "@1V4 O0L16  GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRRR"
9410 S1$= "@1V7 O0L16  CRRRRRRRRRRRRRRR RRRRRRRRRRRG[C]RGR"
9420 SS1$="@1V2 O0L16  C"
9430 P2$= "@5V3 O3L16  RRRRCRRRRRRRCRRR RRRRCRRRRCRRC[[CRC"
9440 Q2$= "@5V3 O3L16  RRRRCRRRRCRRCRR[[C]] RRRRCRRRR>C<CRCR[[CC"
9450 P3$= "@5V4 O6L16  RRCRRRC<<C>>C<<C>>RRRRCR RRC<<C>>RRCRCRRCRRCR"
9460 P4$= "@2V4 O7L16  FFFCFF32F32FC (FFFC) (F32F32FFC FFCA)"
9470 Q4$= "@2V3 O7L16  FRFRFRFRFRFRFRFA32F32 FRFRFRFR FRFRFRFR"
9480 P5$= "@2V7 O1L16  CRRCRRRRRRCRRRRC CRRCRRRCRRCRRCRR"
9490 P6$= "@6V1 O5L16  RRCRRRCRRRCRRRCR RRCRRRCRR@7<C>@6CR@7<C>@6RCR "
9500 BP1$="@9V7 O3L16  RRRRGRRRRRRRGRRB GRGRGRG32G32GRGGRGRGR"
9510 BP2$="@9V3 O2L16  RRRRGRRRRRRRGRRG (GGGG])(GG]GG])"
9520 BP3$="@9V3 O2L16  RRCCRRCRRCRRCRRC>V5 CRRRG4G32G32GRGGRGR"
9530 '
9540 '
9550 '
9560 PLAY A1$,D1$
9570 PLAY A1$,D1$
9580 PLAY A1$,D1$,F1$,D1E$,D1F$,,S1$
9590 PLAY A2$,D2$,F1$,    ,    ,,S1$,P3$
9600 PLAY B1$,A1$,D1$,   ,    ,    ,P1$,P2$,P3$
9610 PLAY B2$,A1$,D1$,   ,    ,    ,P1$,Q2$,P3$
9620 PLAY B1$,A1$,D1$,C1$,D2E$,D2F$,P1$,P2$,P3$,P4$
9630 PLAY B2$,A2$,D2$,C1$,    ,    ,P1$,Q2$,P3$,P4$,BP1$
9640 PLAY B1$,A3$,D3$,F1$,C2L$,C2R$,P1$,P2$,P3$,P4$
9650 PLAY B2$,A4$,D4$,F1$,C2E$,C2F$,P1$,Q2$,P3$,P4$
9660 PLAY B1$,A3$,D3$,F1$,C2L$,C2R$,P1$,P2$,P3$,P4$
9670 PLAY B2$,A5$,D5$,F1$,C2E$,C2F$,P1$,Q2$,P3$,P4$,BP3$
9680 PLAY B3$,A6$,D6$,C4L$,C4R$,D2G$
9690 PLAY B4$,A7$,D7$,C4E$,C4F$
9700 PLAY B5$,A8$,D8$,C4G$,C4H$,    ,P5$,P2$
9710 PLAY B6$,A9$,D9$,C4I$,C4J$,    ,P5$,Q2$,P3$
9720 PLAY B3$,A6$ ,D6$ ,C3L$,C3R$,,P5$,P2$,P3$,P4$
9730 PLAY B4$,A7$ ,D7$ ,C3E$,C3F$,,P5$,Q2$,P3$,P4$
9740 PLAY B5$,A10$,D10$,C3G$,C3H$,,P5$,P2$,P3$,P4$
9750 PLAY B6$,A11$,D11$,C3I$,C3J$,,P5$,Q2$,P3$,P4$
9760 PLAY B3$,   ,C5L$,C5R$,C3L$,C3R$,S1$,P3$
9770 PLAY B4$,   ,C5E$,C5F$,C3E$,C3F$,S1$,P3$,BP2$
9780 PLAY B5$,C1$,C5G$,C5H$,C3G$,C3H$,P1$,P3$,P4$
9790 PLAY B6$,C1$,C5I$,C5J$,C3I$,C3J$,P1$,P3$,P4$,BP1$,BP2$
9800 PLAY B3$,C2L$,C6L$,C6R$,C3L$,C3R$,P1$,P2$,P3$,P4$
9810 PLAY B4$,C2E$,C6E$,C6F$,C3E$,C3F$,P1$,Q2$,P3$,P4$
9820 PLAY B5$,C2L$,C6G$,C6H$,C3G$,C3H$,P1$,P2$,P3$,P4$
9830 PLAY B6$,C2E$,C6I$,C6J$,C3I$,C3J$,P1$,Q2$,P3$,P4$
9840 '
9850 PLAY     ,A3$,D3$,    ,    ,,S1$,Q4$
9860 PLAY     ,A4$,D4$,    ,    ,,S1$,Q4$
9870 PLAY B1$ ,A3$,D3$,F2L$,F2R$,,R1$,Q4$,P6$
9880 PLAY B2$ ,A5$,D5$,F2E$,F2F$,,R1$,Q4$,P6$
9890 PLAY B1$ ,F3L$,F3R$,,,,R1$,Q4$,P6$
9900 PLAY B2$ ,F3E$,F3F$,,,,R1$,Q4$,P6$
9910 PLAY B1$ ,F4L$,F4R$,,,,R1$,Q4$,P6$
9920 PLAY B2$ ,F4E$,F4F$,,,,R1$,Q4$,P6$
9930 PLAY B2E$,F4G$,F4H$,,,,SS1$
9940 RETURN
9950 '
9960 '
9970 *S_59E
9980 'LOOM WORK  [ DISSOLVE ReCOMPOSE EDIT ]
9990 '
10000 A$="@22V8O3L16" : D$=A$+"@22V4O3L16"
10010 A1$= A$+" D1  G&G&G&G&G&G E&E C4E4"
10020 D1$= A$+" RF1 RR    F&F&F&F&F E4G4       "
10030 D1E$=A$+" [[>RRRRRRRR G&G&G&G&G&GE1       "
10040 D1F$=A$+" [[>RRRRRRRR RRR   F1       "
10050 A2$= A$+" D1  G&G&G&G &G&G&G&G  <A&A&A&A>  E4      "
10060 D2$= A$+" RF1 [[[RER RRER ]]]   RRR R32D32 C4     "
10070 D2E$=A$+"L8 [[>>RRRR A#&A#F&F<A#&A#F&F<A#&A#F&F       "
10080 D2F$=A$+"L8 [[>>RRRR R  A&AD&D<A&AD&D <A&AD     "
10090 D2G$=A$+"L8 [[>>RRRR A# AFD<A#AFD<A#AFD       "
10100 A3$= A$+" D4&D8F4&FC4&C       D4&D8F&F  ]>CRRR<[A4"
10110 D3$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 ] A8RR [E4"
10120 A4$= A$+" D4&D8F4&FC4&C       D4&D8F&F  CC8CE4"
10130 D4$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 E4G4  "
10140 A5$= A$+" D4&D8F4&FC4&C       D4&D8F&F    RRRR    A#RRR"
10150 D5$= A$+" RRRE&E8D8<A4&A8>E8  RRRE&E8D8 [[[CC8C]]] GRRR"
10160 A6$= D$+" RRG&G&G&GE&E&EG&G&GE&E&E&E>D2 &D&DG&G&G&GE&E"
10170 D6$= D$+" RRE&E F&F&FG&G&G&GF&F&FF&F>F2 &F&FRR  F&F&F&F "
10180 A7$= D$+" L8 >D&D&D&D&D&D C&C &C&C&C&C&C[[[F&F&F"
10190 D7$= D$+" L8 >F&F&F&F&F&F&F D &D&D&D&D&D&D[[[RF"
10200 A8$= D$+"<A#&A#8&A#&A#8>D4&D8E8&E8  C#&C#8D&D8&D4G8&G8G8"
10210 D8$= D$+" RRR   C&C8&C4F8&F8&D8     <A&A8&A&A8>E4&E8F8&F8   "
10220 A9$= D$+" RRA8&A8D&D8F8&FF8&F8 C#8&C#8E8G&G&G8E8&E8E8"
10230 D9$= D$+" RRDRF8&FF8&F8D&D8G8 &G8 D8&D8C#F&F8&F8D8&D8 "
10240 A10$=D$+" RRA&A4A#4G&G8G8  &GD8D&D8<A#4F4A8"
10250 D10$=D$+" RRF8G&G8G8A&A8F4 C#8C#8E&E8<A&A4C#4 "
10260 A11$=D$+" RRA&A4A#4G&G8G8 &GD8D&D8D&D8<A8>D&D8A8 "
10270 D11$=D$+" RRF8G&G8G8A&A8F4 C#8C#8 G&G8ER C#&C#8E4 "
10280 '
10290 C1$= "@111V5O5L16Q3 DFRDFRDFDFDRC<AR>C32C#32 DFRDFRDFDFDRAERC Q8"
10300 C2L$="@51V3O4L16Q2   <D8>D8D8<D8>DD<D>D8D<D>D "
10310 C2L$=C2L$+"        <<A#8>A#8<A#>A#8<A#>(>C8<C)>C8 Q8"
10320 C2R$="@51V2O4L16Q2  R8F8F8R8FFRF8FRF R8D8RD8R ( E8R)E8 Q8"
10330 C2E$="@51V3O4L16Q2   <D8>D8D8<D8>DD<D>D8D<D>D "
10340 C2E$=C2E$+"         <G8>G8<G>G8<G (>C8<C)>C8 Q8"
10350 C2F$="@51V2O4L16Q2  R8F8F8R8FFRF8FRF R8A#8RA#8R (E8R)E8 Q8"
10360 C3L$="@22V5O4L16 <D8>F8F8<D8>FF<D>F8F<D>F<C#8>E8(<C#>E8)<C#>A8<C#>G8"
10370 C3R$="@22V4O4L16  R8D8D8R8DDRD8DRD<R8>C#8       ( RC#8)  RF8RE8"
10380 C3E$="@22V5O4L16 <CF>E8(<C>E8)4< <B8>>D8<<(B>>D8<<)4"
10390 C3F$="@22V4O4L16  R8 C8( R C8)4<  R8  B8  (R  B8  )4"
10400 C3G$="@22V5O4L16 <<A#8>>D8 (<<A#>>D8 )4<<A8>>C#8(<<A>>C#8)3<<A>>A8"
10410 C3H$="@22V4O4L16 <<R8>  A#8(  R   A#8)4  R8  A8 (  R  A8 )3<<R>>F8"
10420 C3I$="@22V5O4L16 <<A#8>>D8 (<<A#>>D8 )4< C8>E8<(C>E8<)C>A8<C>G8< "
10430 C3J$="@22V4O4L16 <<R8>  A#8(  R   A#8)4  R8>C8 (R C8 )R F8 R E8 "
10440 C4L$="@109V6O4L8  %L1 <D4&D>DF4&F>F %R1<<C#4A>C#EA4>C#   %C"
10450 C4R$="@109V2O4L8R5%R1 <DF A>D FA>CF %L1<<C#EA>C#EA>C#90  %C"
10460 C4E$="@109V6O4L8  %L1 <C4&C>CE4>C4  %R1<<R>DG4>D&D4>D %C"
10470 C4F$="@109V2O4L8R5%R1 <CEG >CEG>CE <%L1<B>DGB>DGB90  %C"
10480 C4G$="@109V6O4L8  %L1 <A#&A#4>A#>DF4>D<<< %R1R>C#EA&A4>A>C# %C"
10490 C4H$="@109V2O4L8R5%R1 <A#>DFA#>DFA#>D<<<  %L1A>C#EA>C#EA90  %C"
10500 C4I$="@109V6O4L8  %L1 <A#>D4A#>D4A#>D<<< %R1C4G>CEA>DA  %C"
10510 C4J$="@109V2O4L8R5%R1 <A#>DFA#>DFA#>D<<< %L1CEG>CEA>D90 %C"
10520 C5L$="@22V8O3L16    G#32A32&A&A4>C8&C4D4 G#32A32&AG4F4D4C8 "
10530 C5R$="@22V4O3L16R10 G#32A32&A&A4>C8&C4D4 G#32A32&AG4F4D4C90"
10540 C5E$="@22V8O3L16   >D2&D8<A4>C8 D2E2"
10550 C5F$="@22V4O3L16R10>D2&D8<A4>C8 D2E4&E8"
10560 C5G$="@22V7O3L16   >F8&F4    E8&E4F4  G8F4E4 F4F8"
10570 C5H$="@22V7O3L16   >D8&D4&D10E8&E4F4  G8F4E4 F4F90"
10580 C5I$="@22V7O3L16   >F8&F4E8&E4F4  A4&A8 G#4&G#8 G4"
10590 C5J$="@22V7O3L16   >D8&D4C8&C4C4  E4&E8 E4&E8   D4"
10600 C6L$="@22V8O3L8    >>A#AGFEDC#<A32A#32&A#16AGFD#32E32&E16DC#DE"
10610 C6R$="@22V4O3L8R10 >>A#AGFEDC#<A32A#32&A#16AGFD#32E32&E16DC#DE90"
10620 C6E$="@22V7O3L16   >E&E8A#8&A#A8G8&G8E8&E8 E8 A4F4&F8 &F8>D8"
10630 C6F$="@22V7O3L16   >RF8 G8 &G F8E8 F8&F8F8 G8&G4D4&D8 >D4"
10640 C6G$="@22V7O3L16  >>C#8D8(C#8D)C#8E8FC  C#8D8(C#8D)C#4< E8"
10650 C6H$="@22V7O3L16   >R8A#8(R8A#)A8>C8D8< A8A#8(A8A#)A8 G8C8"
10660 C6I$="@22V7O3L16   >C#     E8F8&F A#8A8G8&G8E8 F8F8G8&G D8&D D8G8E8"
10670 C6J$="@22V7O3L16   >R32D32&D8D8&D G8 F8E8F8&F8 DED8E8A#&A#8A&A8E8C8"
10680 C7L$="@50V4O3L16  D1&D2 F4G4"
10690 C7R$="@50V4O2L16  D1&D2 F4G4"
10700 E1$= "@80 V4O6L16   DDDDDDDDCDDDDDCD C#DDDDDDDFDDDACCC# "
10710 E2$= "@51 V5O3L16Q6 RRRRCDRCDRRR<<D&D8D>> RRRRCDRCDRRR<<A&A8A>>"
10720 E3L$="@50 V8O5L16Q2    D4>D&D8<D8CD8D8>D<C D4>D&D8<D8CD8D8>D8  Q8"
10730 E3R$="@50 V3O5L16Q8R10 D4>D&D8<D8CD8D8>D<C D4>D&D8<D8CD8D8>D90 Q8"
10740 F1$= "@79 V3O5L16 Q2 D4AR<A>R DD8DARGC32C#32 DD8DA4 DDRD<A8>CR Q8"
10750 GL$="@115V5O4L16" : GR$=GL$+"V1R10"
10760 G1L$=GL$+"CC#32D32&DF8GG#32A32&A4&A8&A G#32A32&AA&A8&AGF8D8&DF8GC8"
10770 G1R$=GR$+"CC#32D32&DF8GG#32A32&A4&A8&A G#32A32&AA&A8&AGF8D8&DF8GC90"
10780 G2L$=GL$+"G#32A32&A8G&G8D2 CRC#32D32&D8F&F8G8 C#32D32&D8F#&F#8A8"
10790 G2R$=GR$+"G#32A32&A8G&G8D2 CRC#32D32&D8F&F8G8 C#32D32&D8F#&F#8A90"
10800 G3L$=GL$+">C2&C4&C8<A>C<A4&A8 >C#32D32&DA&A8G&G8D8 "
10810 G3R$=GR$+">C2&C4&C8<A>C<A4&A8 >C#32D32&DA&A8G&G8D90 "
10820 G4L$=GL$+">(FER)E32F32ER FER F8G8  AGRG#32A32GR(AGR)>C8<G8"
10830 G4R$=GR$+">(FER)E32F32ER FER F8G8  AGRG#32A32GR(AGR)>C8<G90"
10840 G5L$=GL$+">>C2&C4&C8<G#32A32RG8&GD&D8F8&FG8&GARCR"
10850 G5R$=GR$+">>C2&C4&C8<G#32A32RG8&GD&D8F8&FG8&GARC90"
10860 G6L$=GL$+">(<G>C#32D32RAER)D8E4 G#32A32&AGD8CRDD8E8F8"
10870 G6R$=GR$+">(<G>C#32D32RAER)D8E4 G#32A32&AGD8CRDD8E8F90"
10880 G7L$=GL$+">C#32D32ARGRCD4CRCRD8 C#32D32ARGRCC#32D32&D&D8F4G8"
10890 G7R$=GR$+">C#32D32ARGRCD4CRCRD8 C#32D32ARGRCC#32D32&D&D8F4G90"
10900 G8L$=GL$+">G#32A32&A2A(G#32AR32)3>C#32D32&D&D8C4<A&A8G#&G#8G8"
10910 G8R$=GR$+">G#32A32&A2A(G#32AR32)3>C#32D32&D&D8C4<A&A8G#&G#8G90"
10920 G9L$="@51V4O4L16    R4FGRG R2 R4FGRG >RRGRRRGR"
10930 G9R$="@51V1O4L16R10 R4FGRG R2 R4FGRG >RRGRRRG90"
10940 G9E$="@51V4O4L16    R4FGRG @115RDD8FRGR@51R4FGRG@115RRC8C8D8  "
10950 G9F$="@51V1O4L16R10 R4FGRG @115RDD8FRGR@51R4FGRG@115RRC8C8D90 "
10960 G9G$="@51V4O4L16    R4FGRG @115RDD8FRGR@51R4FGRG@115C#32D32RFRGRAR"
10970 G9H$="@51V1O4L16R10 R4FGRG @115RDD8FRGR@51R4FGRG@115C#32D32RFRGRA90"
10980 G0L$=GL$+">CRRRRRRR RR<D>RDDRD G#32A32RGFRR AR G#32A32RGF&F8GR"
10990 G0R$=GR$+">CRRRRRRR RR<D>RDDRD G#32A32RGFRR AR G#32A32RGF&F8G90"
11000 G0E$=GL$+">CDRRFRR<F> CDRRGRC#32C32R <A#RG2 A#RA#R>CR"
11010 G0F$=GR$+">CDRRFRR<F> CDRRGRC#32C32R <A#RG2 A#RA#R>C90"
11020 G0G$=GL$+"(>GC#32C32<A#G8&GA#R)>GC#32C32<A#G8&G>DRA#32A32RGCC#R>C#R"
11030 G0H$=GR$+"(>GC#32C32<A#G8&GA#R)>GC#32C32<A#G8&G>DRA#32A32RGRC#R>C#90"
11040 G0I$=GL$+">> ((C#32D32)R)4DRC#32D32R < ((C#32D32)F)4FRF#32G32R"
11050 G0J$=GR$+">> ((C#32D32)R)4DRC#32D32R < ((C#32D32)F)4FRF#90"
11060 G0Y$=GL$+"   A#&A#8 G&G4&G2 &G2 FRRRD8&DD"
11070 G0Z$=GR$+"   A#&A#8 G&G4&G2 &G2 FRRRD8&D90"
11080 '
11090 '
11100 B1$= "@12V8O3L16 D4A8DRDDRDA8DC D8&DDA8DRCDRDA8C#8"
11110 B2$= "@12V8O3L16 D&D8DDRF8<A&A8AAR>C8<G&G8GGRA#8 A>C<A8>C32C#32&C#E8"
11120 B2E$="@12V8O3L16 D&D8DDRF8<AA8AAR>C8<G&G8GA#8G8  A>C#D8E8G8"
11130 B3$= "@112V3O2L16Q5 D4A&A8GCDF8<A8>D8 C#4>C#&C#8<C#RC#>C#8<C#RC#8 Q8"
11140 B3E$="@96 V6O1L16Q8 G1&G1"
11150 B3F$="@56 V8O1L16Q8 G&G8GD8F8GRFG>C8<FF# G&G8GD8F8GRFGC8A8"
11160 B3G$="@56 V8O1L16Q8 G&G8GD8F8GRFG>C8<FF# G&G8GD8F8GRD8D8F8"
11170 B3H$="@56 V8O1L16Q8 (V8A#V2A#8)4A#8A#8 V8 ARRRARRR GA8A8A>C8"
11180 B4$= "@112V3O2L16Q5 CCCC<A#>C8C CC8<A#>C>C8<C  <BBRBB4 A#BRBB8>B8 Q8"
11190 B5$= "@112V3O2L16Q5<RRA#8>A#R<A#R RRA#8>A#R<A#G A8A8EA8AGAA8EA8A  Q8"
11200 B6$= "@112V3O2L16Q5<A#8A#8A#8AA#RAA#8A#8>D8 <C8E8A8C8E8A8>C8E8   Q8"
11210 B3S$="@96 V4O1L1 >DC#" : B4S$="@96 V4O1L1 >C<B"
11220 B5S$="@96 V4O1L1  A#A" : B6S$="@96 V4O1L1  A#>C"
11230 B7$= "@12V8O3L16 FRRF RRFR RRFR FRFR C#RRC#RRC#RRRC#RC#RC#R"
11240 B8$= "@12V5O3L16 D"
11250 '
11260 P1$= "@1V8 O0L16  (GRRR)3 GRDR (GRRR)4"
11270 S1$= "@1V8 O0L16  GRRRRRRRRRRRRRRR RRRRRRRRRRRGCRGR"
11280 SS1$="@1V5 O0L16  C"
11290 P2$= "@5V5 O4L16  RRRRCRRRRRRRCRRR RRRRCRRRRCRRC[[CRC"
11300 Q2$= "@5V5 O4L16  RRRRCRRRRCRRCRR[[C]] RRRRCRRCRCRRCR[[CC"
11310 P3$= "@6V4 O6L16  RRCRRRCR RRCRRRC>C32C32<  RRCRRRCRRRCRCRCR "
11320 P4$= "@9V6 O6L16  FRFRFRFB CRFRFRC8  FRFRFRFB CRFRFRFR"
11330 P5$= "@9V12O1L16  ERRERRRRRRERRRR[[E]] ERRERRRERRERRERR"
11340 BP1$="@9V6 O3L16  RRRRGRRRRRRRGRRB GRGRGRG32G32GRGGRGRGR"
11350 BP2$="@9V3 O2L16  RRRRGRRRRRRRGRRG (GGGG])(GG]GG])"
11360 BP3$="@9V4 O2L16  RRCCRRCRRCRRCRRC>V6 CRRRG4G32G32GRGGRGR"
11370 '
11380 '
11390 '
11400 PLAY A1$,D1$,E1$
11410 PLAY A1$,D1$,E1$
11420 PLAY A1$,D1$,E1$,F1$,E2$,,S1$
11430 PLAY A2$,D2$,E1$,F1$,E2$,,P1$
11440 PLAY B1$,A1$,D1$,F1$,E1$,E2$,P1$,P2$,P3$
11450 PLAY B1$,A1$,D1$,F1$,E1$,E2$,P1$,Q2$,P3$
11460 PLAY B1$,A1$,D1$,C1$,E1$,E2$,P1$,P2$,P3$,P4$
11470 PLAY B1$,A2$,D2$,C1$,E1$,E2$,P1$,Q2$,P3$,P4$,BP1$
11480 PLAY B2$ ,A3$,D3$,F1$,C2L$,C2R$,P1$,P2$,P3$,P4$
11490 PLAY B2E$,A4$,D4$,F1$,C2E$,C2F$,P1$,Q2$,P3$,P4$
11500 PLAY B2$ ,A3$,D3$,F1$,C2L$,C2R$,P1$,P2$,P3$,P4$
11510 PLAY B2E$,A5$,D5$,F1$,C2E$,C2F$,P1$,Q2$,P3$,P4$,BP3$
11520 PLAY B3$ ,E3L$,E3R$,C4L$,C4R$,D2G$,P5$,P2$,P3$
11530 PLAY B4$ ,E3L$,E3R$,C4E$,C4F$,    ,P5$,Q2$,P3$
11540 PLAY B5$ ,E3L$,E3R$,C4G$,C4H$,E1$ ,P5$,P2$,P3$,P4$
11550 PLAY B6$ ,E3L$,E3R$,C4I$,C4J$,E1$ ,P5$,Q2$,P3$,P4$
11560 PLAY B3E$,   ,   ,    ,E1$ ,,P5$,P2$,P3$,P4$
11570 PLAY B3E$,   ,   ,    ,E1$ ,,P5$,Q2$,P3$,P4$,BP2$
11580 PLAY B3E$,   ,   ,C3G$,C3H$,,S1$
11590 PLAY B3E$,   ,   ,C3I$,C3J$,,S1$,Q2$,P3$,P4$,BP3$
11600 PLAY B3F$,G9L$,G9R$,C3L$,C3R$,,P1$,P3$,P4$
11610 PLAY B3G$,G9L$,G9R$,C3L$,C3R$,,P1$,P3$,P4$
11620 PLAY B3F$,G9E$,G9F$,C3G$,C3H$,,P1$,P3$,P4$
11630 PLAY B3H$,G9G$,G9H$,C3I$,C3J$,,P1$,P3$,P4$
11640 PLAY B3F$,G0L$,G0R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
11650 PLAY B3G$,G0E$,G0F$,C3L$,C3R$,,P1$,Q2$,P3$,P4$
11660 PLAY B3F$,G0G$,G0H$,C3G$,C3H$,,P1$,P2$,P3$,P4$
11670 PLAY B3G$,G0I$,G0J$,C3I$,C3J$,,P1$,Q2$,P3$,P4$
11680 PLAY B3E$,G0Y$,G0Z$,    ,    ,,S1$,   ,P3$,   ,BP2$,BP1$
11690 PLAY B3F$,G1L$,G1R$,,,,P5$,P2$,P3$,P4$
11700 PLAY B3G$,G2L$,G2R$,,,,P5$,Q2$,P3$,P4$
11710 PLAY B3F$,G3L$,G3R$,,,,P5$,P2$,P3$,P4$
11720 PLAY B3H$,G4L$,G4R$,,,,S1$,Q2$,P3$,P4$,BP3$
11730 PLAY B3F$,G5L$,G5R$,,,,P5$,P2$,P3$,P4$
11740 PLAY B3G$,G6L$,G6R$,,,,P5$,Q2$,P3$,P4$,BP2$
11750 PLAY B3F$,G7L$,G7R$,,,,P5$,P2$,P3$,P4$
11760 PLAY B3H$,G8L$,G8R$,,,,P5$,Q2$,P3$,P4$,BP2$,BP1$
11770 '
11780 PLAY B3S$,    ,C5L$,C5R$,C3L$,C3R$,S1$,P3$
11790 PLAY B4S$,    ,C5E$,C5F$,C3E$,C3F$,S1$,P3$,BP2$
11800 PLAY B5S$,C1$ ,C5G$,C5H$,C3G$,C3H$,P1$,P3$,P4$
11810 PLAY B6S$,C1$ ,C5I$,C5J$,C3I$,C3J$,P1$,P3$,P4$,BP1$,BP2$
11820 PLAY B3$ ,C2L$,C6L$,C6R$,C3L$,C3R$,P1$,P2$,P3$,P4$
11830 PLAY B4$ ,C2E$,C6E$,C6F$,C3E$,C3F$,P1$,Q2$,P3$,P4$
11840 PLAY B5$ ,C2L$,C6G$,C6H$,C3G$,C3H$,P1$,P2$,P3$,P4$
11850 PLAY B6$ ,C2E$,C6I$,C6J$,C3I$,C3J$,P1$,Q2$,P3$,P4$
11860 PLAY B1$,A3$,D3$,,,,SS1$
11870 PLAY B1$,A4$,D4$
11880 PLAY B1$,A3$,D3$
11890 PLAY B2$,A5$,D5$
11900 PLAY B8$
11910 RETURN
11920 '
11930 '
11940 *S_61
11950 'ORGANIC  [ yellow ]
11960 '
11970 AL$="@20V6O4L16Q6" : AR$=AL$+"@97V2" : AC$=AL$+"V5Q7"
11980 A1L$=AL$+"R8F#RF#4 F#8&F#F#RF#F#8 G2&G4A8G8"
11990 A1R$=AR$+"R8CRC4   C8&CCRCC8      D2&D4E8D8"
12000 A2L$=AL$+"R8F#RF#4 F#8&F#F#RF#F#8 D2&D4C8D8"
12010 A2R$=AR$+"R8CRC4   C8&CCRCC8     <A2&A4G8A8"
12020 A2E$=AL$+"E4G4A4>C4&C8<A8GARAR D#ERAR"
12030 A2F$=AR$+"C4D4E4 G4&G8 E8DERER<B>CRER"
12040 A3L$=AL$+"D#32E32RGRAR(D#32E32GRAR)   D#32E32RGRAREGRAG E>CR<GR"
12050 A3R$=AR$+"<B32>C32RDRER(<B32>C32DRER)<B32>C32RDRERCDRED C GR DR"
12060 A3E$=AL$+"D#32E32RGRAR(D#32E32GRAR)   D#32E32RGRA&A2&A>C<G"
12070 A3F$=AR$+"<B32>C32RDRER(<B32>C32DRER)<B32>C32RDRE&E2&E G D"
12080 A4L$=AL$+"R8D#32E32DC<A&A8F#8&F#G8&GA4 >(D#32E32)D8<B8>C4>[[G4"
12090 A4R$=AR$+"R8<B32>C32<AGE&E8D#8&D#D8&DE4 (B32>C32<)A8F#8G4>[[E4"
12100 A4E$=AL$+"DRE DC<A&A8F#8&F#G8&GA4L32>D#ERR (D#E) RRD#ERR(D#E)RRA8G8"
12110 A4F$=AR$+"DRC<AGE&E8D#8&D#D8&DE4L32B>C<RR(B>C<)RRB>C<RR(B>C<)RRE8D8"
12120 A5L$=AL$+"RRCRGRRRCF#RGRCF#R     RRCRGRR<C>CF#RGRAGR"
12130 A5R$=AC$+"RR<G>RDRRR<G>CRDR<G>CR RR<G>RDRR<<G>G>CRDREDR"
12140 A5E$=AL$+"Q4 (CCRR   CCRR   ) ERRRRRRR<ARRRQ8 B4 "
12150 A5F$=AC$+"Q4<(GGR<C>>GRR<<G>) BRRRRRRR ERRRQ8 G4 "
12160 A6L$=AL$+"%L1]]   E8 D8 E8G4A4>C8  %R1 <A8>C8<A8G4E4 D8"
12170 A6R$=AC$+"%R1]]   C8<B8>C8D4E4 G8  %L1  E8 G8 E8D4C4<G8"
12180 A6E$=AL$+"%L1]]   EDE8G8&GA8&AG8E8 %R1  D8 CRC8>C8<AG8E D8C8D8"
12190 A6F$=AC$+"%R1]]   C8C8D8&DE8&ED8C8<%L1  BA GRGF G8>ED8C<B8G8B8"
12200 A7L$=AL$+"@109Q1  ERE8 D E<E>ERE DRCRD8 AGA8G8E D8C<A8>C8D8   Q8"
12210 A7R$=AC$+"@109Q1  CRC8<B>C8  CRC<BRGAB8>EDE8D8C<B8A E8 A8B8   Q8"
12220 A7E$=AL$+"@109Q1   E8 DCD ERGRGE8 D8 E8   DRRRRRRR CRCCDRGR Q8"
12230 A7F$=AC$+"@109Q1   C8<BAB>CRDRDC8<B>ACD#< BRRRRRRR ARAGBRRR Q8"
12240 '
12250 '
12260 CL$="@51V6O3L16" : CR$=CL$+"V2R10"
12270 C1L$=CL$+">CRC<A>DRD<A>DE8<A8GAD# EERGGRAAR>EERD8GR"
12280 C1R$=CR$+">CRC<A>DRD<A>DE8<A8GAD# EERGGRAAR>EERD8G90 "
12290 C2L$=CL$+">ARRGEREDCRC<AGA>CG EERRE4 AGRE8GA8  "
12300 C2R$=CR$+">ARRGEREDCRC<AGA>CG EERRE4 AGRE8GA90 "
12310 C3L$=CL$+">>CRCCRCRCRCCR<GRF#D# EREEREREERERF#RGR"
12320 C3R$=CR$+">>CRCCRCRCRCCR<GRF#D# EREEREREERERF#RG90"
12330 C4L$=CL$+"(>E8&E<A8GA8)>D#32E32&E8<A8GA8RGG8L64<D32D#EF#GAB>L32CD#EA"
12340 C4R$=CR$+"(>E8&E<A8GA8)>D#32E32&E8<A8GA8RGG8L64<D32D#EF#GAB>L32C90"
12350 C4E$=CL$+"(>E8&E<A8GA8)>D#32E32&E8<A8GA8RGG8A"
12360 C4F$=CR$+"(>E8&E<A8GA8)>D#32E32&E8<A8GA8RGG8A"
12370 DL$="@25V7O4L16Q4" : DR$=DL$+"V5"
12380 D0L$=DL$+"RRRR GRRR RF#RR GRRR  RRRR ARRE RRF#R GRAR"
12390 D0R$=DR$+"RRRR DRRR RD RR DRRR  RRRR ERRC RRD R DRER"
12400 D0E$=DL$+"RRRR GRRE  RF#RR GRRR  RR RR ARRE RR>ER< ERAR"
12410 D0F$=DR$+"RRRR DRRG  RD RC DDRG  BRA#R ERRC RB>CR< CRER"
12420 D1L$=DL$+"RRGRARRB C#32>C32<F#RERRF#RB >CCRCR G CRRRCRR<A8"
12430 D1R$=DR$+"RRDRERRF G        D RCRRD RR  GGRGB>C<GRRRCRRR B"
12440 D2L$=DL$+">CRRERR AR R>DER< F#RFR E&E8  C8&C ED#8<A8&A >C8C8"
12450 D2R$=DR$+" GRRBRR>ER R ABG  CR CR<B>D#8<G8&G B8&B E8&E  G8G8 "
12460 D2E$=DL$+">RRCRRE RA R>DD#R< F#RE R   ERRRRRRR<ARRR B8>D8 Q8"
12470 D2F$=DR$+" RRGRRB>RE R AB G  C<GB>C   CRRRRRRR<ERRR G8 B8 Q8"
12480 D3L$=DL$+"%R1 GRARERGARERGAR EG %L1 AGAR>C<RAGRE D CDD#EG"
12490 D3R$=DR$+"%L1 DRERCRDERCRDED#CD %R1 EDER G REDRC<B AB8>CE"
12500 D4L$=DL$+"@43V4   %L1EEEREEREREEREREE %L1GARAFGRGCDRDDERE %C"
12510 D4R$=DR$+"@43V1R5 %R1EEEREEREREEREREE %R1GARAFGRGCDRDD90  %C"
12520 D4E$=DL$+"@43V4   %L1EFFRFFRFRFFRFRFF %L1GGRGGRGGRGGRGRRR %C"
12530 D4F$=DR$+"@43V1R5 %R1EFFRFFRFRFFRFRFF %R1GGRGGRGGRGGRG90  %C"
12540 D5$ ="@43V5O3L16Q1 CRCR>CR<C>C<C>C<CR>C<DREFRFR>FR<F>F<F>F<FR>FERDQ8"
12550 D5E$="@43V5O3L15 CRCR>CR<C>C<C>C<CR>C<DL13 REFRFR>FR<F>F<F>F<FR>FERD"
12560 D5F$="@43V5O3L9  CRCR>CR<C>C<C>C<CR>C<DL5  REFRFR>FR<F>F<F>F<FR>FERD"
12570 D6$ ="@24V6O4L16Q2 CGGC>G<GCG>C<GCG<C>GCE FC<F>CFC<F>GC<GFEDEFG Q8"
12580 D6E$="@24V6O4L15Q2U50CGGC>G<GCG>C<GCG<C>GCEL13FC<F>CFC<F>GC<GFEDEFG"
12590 D6F$="@24V6O4L9Q2U200CGGC>G<GCG>C<GCG<C>GCEL5FC<F>CFC<F>GC<GFED4"
12600 D7$ ="@43V4O5L16Q2 CGRGCRGCCGR>G<CRGC< F>CRC<FR>C<F F>CRC<FRGA Q8"
12610 D7E$="@43V4O5L15Q2U-100CGRGCRGCCGR>G<CRGC<L13F>CRC<FR>C<F F>CRC<FRGA"
12620 D7F$="@43V4O5L9Q2U-300CGRGCRGCCGR>G<CRGC<L5F>CRC<FR>C<F F2"
12630 B$ ="@29V9O1L16Q6"
12640 B1$ =B$+"  ARAR>C<RAR>D8<A>C8<AE8  ARAR>C<RAR>E8<A>D8<A>C8"
12650 B2$ =B$+" >E4E4DDRD8C<G4 A8GARA8 AA8>C8D8"
12660 B2E$=B$+" >E4E4DDRD8C<G4 A8GARAR RRRC8D8"
12670 B3$ =B$+" Q4 EA<A8>A8<A>A8A<A8>A8<A>E A8<A>>Q2AQ8<A8<A8>GA8A8GA8 "
12680 B3E$=B$+" Q4 EA<A8>A8<A>A8A<A8>A8<A>E Q8 E2<A4 >GB>CD "
12690 B4$ =B$+">CRC8CR<B>CR<G>C8CRCD F8FRF8CFREF<G>E8D8 Q8"
12700 B4E$=B$+">CRC8CR<B>CR<G>C8CRCD F8FRF8F Q4G8GG8GRQ6D8 Q8"
12710 B4F$=B$+">Q8 C1 F2G2 "
12720 B5$ =B$+"@109Q1 >E>Q8EQ1<E8D8E4E8EDE8 ARARGEGRDRD>D<ERE8 Q8"
12730 B5E$=B$+"@109Q1 >FRFRF8FEFFRF8FG8     GGRGGRG GRGGDRRR   Q8"
12740 B6$= B$+"@107V5Q5 >C8&CC<GRAR>RCRC<G8A8  F8&FFCRDRRFF8G8A8 Q8"
12750 B6E$=B$+"@107V5Q5L15 >C8&CC<GRAR>RCRC<G8A8 L13 F8&FFCRDRRFF8G8A8 Q8"
12760 B6F$=B$+"@107V5Q5L9  >C8&CC<GRAR>RCRC<G8A8 L5  F8&FFCRDRRFF8G8A8 Q8"
12770 '
12780 P1$= "@2V8 O1L16  CRRRRRRR CRRCRRRC CRRRRRRR CRRCRRCR "
12790 Q1$= "@2V8 O1L16  ERRERRRR RRERRRRD ERRERRER RRERERCR"
12800 S1$= "@2V8 O1L16  CRRRRRRR RRRRRRRC CRRRRRRR RR @9<CRCRCR"
12810 P2$= "@2V13O4L16  RRRRGRRR RRRRGRRR RRRRGRRR RRRRGR[[[GG "
12820 Q2$= "@2V13O4L16  RRRRGRRR RGRRGRRR RRRRGRRR RGRRGR[[[GG"
12830 P3$= "@5V5 O6L16  CRRCRRRC RRCRRRRR CRCCRRRC RRCRRCRR "
12840 P4$= "@2V5 O7L16  (FRFR FRAF)3 AFRAFRCR"
12850 P5$= "@9V7 O1L16  ERRERRRR RRERRRRD ERRERRER RRERERCR"
12860 BP1$="@9V8 O3L16  RRRRRRRR RRRRGRRR RRRRGRR<(G32)> GRGRGGRG"
12870 BP2$="@9V8 O3L16  RRRRRRRR RRRRRRRR RRRRRRRR CRCRC<C>CR"
12880 '
12890 '
12900 '
12910 PLAY A1L$,A1R$,    ,,,,Q1$,Q2$
12920 PLAY A2L$,A2R$,    ,,,,Q1$,Q2$,P4$
12930 PLAY A1L$,A1R$,B1$ ,,,,Q1$,Q2$,P3$,P4$
12940 PLAY A2E$,A2F$,B2E$,,,,Q1$,Q2$,P3$,P4$
12950 '
12960 PLAY B1$ ,A3L$,A3R$,C1L$,C1R$,,P1$,P2$,P3$,P4$
12970 PLAY B1$ ,A3E$,A3F$,C2L$,C2R$,,P1$,P2$,P3$,P4$
12980 PLAY B1$ ,A3L$,A3R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
12990 PLAY B1$ ,A3E$,A3F$,C4L$,C4R$,,Q1$,Q2$,P3$,P4$
13000 PLAY B2$ ,A4L$,A4R$,C1L$,C1R$,,P1$,P2$,P3$,P4$
13010 PLAY B2E$,A4E$,A4F$,C2L$,C2R$,,P1$,P2$,P3$,P4$
13020 PLAY B2$ ,A4L$,A4R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
13030 PLAY B2E$,A4E$,A4F$,C4E$,C4F$,,Q1$,Q2$,P3$,P4$
13040 '
13050 PLAY B3$ ,A5L$,A5R$,    ,    ,,P5$,Q2$,P3$
13060 PLAY B3$ ,A5L$,A5R$,    ,    ,,P5$,Q2$,P3$,BP1$
13070 PLAY B3$ ,A5L$,A5R$,D0L$,D0R$,,P5$,Q2$,P3$
13080 PLAY B3$ ,A5L$,A5R$,D0E$,D0F$,,P5$,Q2$,P3$,BP1$
13090 PLAY B3$ ,A5L$,A5R$,D1L$,D1R$,,P1$,P2$,P3$,P4$
13100 PLAY B3$ ,A5L$,A5R$,D2L$,D2R$,,P1$,Q2$,P3$,P4$
13110 PLAY B3$ ,A5L$,A5R$,D1L$,D1R$,,P1$,P2$,P3$,P4$
13120 PLAY B3E$,A5E$,A5F$,D2E$,D2F$,,Q1$,Q2$,P3$,P4$,BP1$
13130 '
13140 PLAY B4$ ,A6L$,A6R$,D3L$,D3R$,,P1$,P2$,P3$,P4$
13150 PLAY B4E$,A6E$,A6F$,D3L$,D3R$,,P1$,P2$,P3$,P4$
13160 PLAY B4$ ,A6L$,A6R$,D3L$,D3R$,,P1$,P2$,P3$,P4$
13170 PLAY B4E$,A6E$,A6F$,D3L$,D3R$,,P1$,Q2$,P3$,P4$,BP2$
13180 PLAY B5$ ,A7L$,A7R$,D4L$,D4R$,,S1$
13190 PLAY B5E$,A7E$,A7F$,D4E$,D4F$,,S1$,BP1$
13200 PLAY B4$ ,A6L$,A6R$,D3L$,D3R$,D5$,P1$,P2$,P3$,P4$
13210 PLAY B4E$,A6E$,A6F$,D3L$,D3R$,D5$,P1$,P2$,P3$,P4$
13220 PLAY B4$ ,A6L$,A6R$,D3L$,D3R$,D5$,P1$,P2$,P3$,P4$
13230 PLAY B4F$,A6E$,A6F$,    ,    ,D5$,S1$,   ,   ,P4$,BP2$
13240 '
13250 PLAY    ,D5$,D6$,D7$,,,P5$,P2$,P3$,P4$
13260 PLAY    ,D5$,D6$,D7$,,,P5$,P2$,P3$,P4$
13270 PLAY B6$,D5$,D6$,D7$,,,P5$,P2$,P3$,P4$
13280 PLAY B6$,D5$,D6$,D7$,,,P5$,P2$,P3$,P4$
13290 '
13300 PLAY B6E$,D5E$,D6E$,D7E$
13310 PLAY B6F$,D5F$,D6F$,D7F$
13320 RETURN
13330 '
13340 '
13350 *S_62
13360 'ORGANIC  [ charcoal ]
13370 '
13380 AL$="@32V8O4L32" : AR$=AL$+"V3R16"
13390 A1L$=AL$+"G2&G8 F#2&F#8"
13400 A1R$=AR$+"G2&G8 F#2&F#16"
13410 A2L$=AL$+"E2&E8 D4&D16 E4&E16"
13420 A2R$=AR$+"E2&E8 D4&D16 E4 "
13430 A3L$=AL$+"C#16&C#D16E8&E <A2&A8> GRRGR"
13440 A3R$=AR$+"C#16&C#D16E8&E <A2&A8> GRRG "
13450 A4L$=AL$+"@94>>RRRDRC#RR<BRARRGRF#RRER (C#RRDR)E8RA8R"
13460 A4R$=AR$+"@94>>RRRDRC#RR<BRARRGRF#RRER (C#RRDR)E8RA16&A"
13470 A4E$=AL$+"@94>>RRRDRC#RR<BRARRGRF#RRER>(C#RRDR)E8R<A8R"
13480 A4F$=AR$+"@94>>RRRDRC#RR<BRARRGRF#RRER>(C#RRDR)E8R<A16&A"
13490 '
13500 '
13510 C1L$="@96V7O3L32    D#E16RRG16RRRA8R D#ERG16RRRA16RRR ERG16RRRA8R"
13520 C1R$="@96V4O3L32R16 D#E16RRG16RRRA8R D#ERG16RRRA16RRR ERG16RRRA16R"
13530 C2L$="@17V7O3L32    D1&D4"
13540 C2R$="@17V6O3L32    F#1&F#4"
13550 C2C$="@17V6O3L32    A1&A4"
13560 C3L$="@17V8O3L32    D1&D4"
13570 C3R$="@17V7O3L32    G2&G8&G4&G16   G4&G16"
13580 C3C$="@17V7O3L32    A#2&A#8 A4&A16&A4&A16"
13590 C3E$="@17V8O3L32    D1&D4"
13600 C3F$="@17V7O3L32    G2&G8&G4&G16   A#4&A#16"
13610 C3G$="@17V7O3L32    A#2&A#8 >C4&C16&C4&C16"
13620 C3H$="@17V8O3L32    D#1&D#4"
13630 C3I$="@17V7O3L32    G2&G8&G4&G16  >C4&C16"
13640 C3J$="@17V7O3L32   >C2&C8  <A#2&A#8"
13650 C4L$="@17V8O3L32    F#64G64&G8&G4&G16 F#8&F#&F#4&F#16 G&G4"
13660 C4R$="@17V7O3L32    E4&E8&E16&E       D4&D8&D16&D     E&E4"
13670 C4E$="@17V8O3L32    A4&A8&A16&A >C#4&C#8&C#16&C# D&D4"
13680 C4F$="@17V7O3L32    E4&E8&E16&E  A4&A8&A16&A     A&A4"
13690 C4G$="@17V8O3L32   >G4&G8&G16&G&G4&G8&G16&G      D&D4"
13700 C4H$="@17V8O3L32   >D4&D8&D16&D F#4&F#8&F#16&F# <A&A4"
13710 C4I$="@17V7O3L32   >A4&A8&A16&A&A4&A8&A16&A      D&D4"
13720 C4J$="@17V8O3L32   >D4&D8&D16&D G4&G8&G16&G <A&A4"
13730 C6L$="@25V8O4L32  D8RE8R F#8R G&G16A16 &A4&A8R   >R16C#RR<RR"
13740 C6R$="@25V7O4L32 <A8RB8R>D8 R E&E16F#16&F#4&F#8R >D16R RR<BR"
13750 C6C$="@25V2O4L32 RR D8RE8RF#8R G&G16A16 &A4&A8R >D16C#RR<"
13760 C6E$="@25V8O4L32 A8 RG8RF#8R G16RF#8RE16   D8RC#8RD8R   "
13770 C6F$="@25V7O4L32 F#8RE8RD8 R E16RD8 RC#16 <A8RG8 RA8R   "
13780 C6G$="@25V2O4L32 RR A8RG8RF#8R G16RF#8RE16 D8RC#8RD16&D "
13790 C6H$="@25V8O4L32 A4&A8R  >DRR RRDR< G4R16F#8RE8R  "
13800 C6I$="@25V7O4L32 E4&E8R  >RRC#RRRR< D4R16D8R C#8R  "
13810 C6J$="@25V2O4L32 RRA4&A8R  >DRC#RRDR< G4R16F#8RE16&E"
13820 C5L$="@25V6O3L32%L1  (( D R8)  DR8     D RR<A R>)"
13830 C5R$="@25V8O3L32%C   (( F#R8)< RRRF#R> F#RR<F#R>)"
13840 C5C$="@25V6O3L32%R1  (( A R8)< RRRAR > A RR D R )"
13850 C5E$="@25V6O3L32%L1  ( DR8)  DR8    DRR<BR> ( DR8)  DR8    C8R"
13860 C5F$="@25V8O3L32%C   ( GR8)< RRRGR> GRR<GR> ( GR8)< RRRGR> E8R"
13870 C5G$="@25V6O3L32%R1  ( BR8)< RRRBR> BRR DR  ( BR8)< RRRBR> G8R"
13880 C5H$="@25V6O3L32%L1 <(AR8 ) AR8    ARR<BR>   (AR8 ) AR8   > D8R"
13890 C5I$="@25V8O3L32%C   (C#R8)<RRRC#R>C#RR<C#R> (C#R8)<RRRC#R> G8R"
13900 C5J$="@25V6O3L32%R1  (ER8 )<RRRE R>ERR ER    (ER8 )<RRRE R> B8R"
13910 D1L$="@94V9O5L32   RRRRRA8RGRRARA8R  ARRERRRRF#R RRRGR RRRAR"
13920 D1R$="@94V4O5L32RR ARRRRA8RGRRARA8R  ARRERRRRF#R RRRGR RRR"
13930 D2L$="@94V9O5L32   F#RRG8&GF#RG8&GF#RRG8&G >DR D8RC8R<A#8"
13940 D2R$="@94V4O5L32RR F#RRG8&GF#RG8&GF#RRG8&G >DR D8RC8R<A#16"
13950 D3L$="@94V9O5L32  (F#&F#16&F#64G&G16A&A16 F#&F#16&F#G&G16A&A16)"
13960 D3R$="@94V4O5L32RR  F#&F#16&F#64G&G16A&A16 F#&F#16&F#G&G16A&A16 "
13970 D3R$=D3R$+"         F#&F#16&F#64G&G16A&A16 F#&F#16&F#G&G16A "
13980 D4L$="@94V9O5L32    G&G16&G64A&A16A#&A#16 G&G16&GA&A16A#&A#16 "
13990 D4L$=D4L$+"         G&G16&G64A&A16A#&A#16 >C&C16&C<A#&A#16>C&C16 "
14000 D4R$="@94V4O5L32RR  G&G16&G64A&A16A#&A#16 G&G16&GA&A16A#&A#16 "
14010 D4R$=D4R$+"         G&G16&G64A&A16A#&A#16 >C&C16&C<A#&A#16>C     "
14020 D4E$="@94V7O5L32    A1&A4"
14030 D4F$="@94V2O5L32RR  A1&A8&A16"
14040 E1L$="@20V7O3L32Q4 ARR>ARF#R8<RRRRRDRRD<G> ARR>ARF#RRRR<< DRRDRF#8R"
14050 E1R$="@20V5O3L32Q4 ERR>ERD R8<RRRDC<BRRBE >ERR>ERD RRDR<<<BRRBRD8R "
14060 E1E$="@20V7O3L32Q6 ARR>ARF#R8<RRRRRDRRD<G> ARR>ARGRRF#R ERR DRC#RRER"
14070 E1F$="@20V5O3L32Q6 ERR>ERD R8<RRRDC<BRRBE >ERR>ERDRRDRC#RR<BRARR>C#R"
14080 E2L$="@20V7O4L32Q6 (( ERR F#R))4  Q8"
14090 E2R$="@20V5O4L32Q6 ((<ARR>DR ))4  Q8"
14100 E2E$="@20V7O4L32Q6 (( ERR F#R))3  ERR ARGRRF#R Q8"
14110 E2F$="@20V5O4L32Q6 ((<ARR>DR ))3 <ARR>ERERRD R Q8"
14120 E2G$="@20V7O4L32Q6 (( ERR F#R))3  ERR<AR>C#RR ER  Q8"
14130 E2H$="@20V5O4L32Q6 ((<ARR>DR ))3 <ARR ER A RR>C#R Q8"
14140 E3L$="@19V7O4L32  ARRRRRRRRR  GRRRRRRRF#R RRRF#RF#8RG8RA8R"
14150 E3R$="@19V5O4L32  F#RRRRRRRRR ERRRRRRRDR  RRRD RD8 RE8RF#8R"
14160 '
14170 B1$ ="@96V11O1L32  A2&A8 A2&A8"
14180 B1E$="@96V11O1L32  A1&A4 "
14190 B2$ ="@29V8 O1L32  G2&G8 G2&G8"
14200 B3$= "@27V8 O3L32 ARRRRA8RG&GRA8RA&A RRRERE8R G8RA8R"
14210 B4$= "@27V8 O3L32 GRRRRG8RF#&F#RG8RG&G RRRDRD8R F#8RG8R"
14220 B5$= "@27V8 O3L32 F#RRG16F#8RD8RE16&EF#R RRRG16F#8RD8RA8R"
14230 B6$= "@28V8 O2L32  DR8DRRD16 DR8DRRD<A> DR8DRRD16 DRR[A16G16&GF#16"
14240 B6E$="@28V8 O2L32  GR8GRRG16 GR8GRRGD   GR8GRRG16 A8RA8R"
14250 B6F$="@28V8 O2L32  AR8ARRA16 AR8ARRAF#  AR8ARRA16 E8RA8R"
14260 B7$ ="@88V5 O1L32  D1&D4"
14270 B7E$="@88V5 O1L32  G1&G4"
14280 '
14290 P1$= "@2V11O1L32 ERRRRRRRRR ERRRRRRRRR ERRRRRRRRR ERRRRERRRR"
14300 S1$= "@2V11O1L32 ERRRRRRRRR RRRRRRRRRR RRRRRRRRRR RRR[[[CRCRRCR"
14310 P2$= "@1V8 O4L32 RRRRRRRRRR CRRRRRRRRR RRRCRRRRRR CRRRRCRRCR"
14320 S2$= "@1V8 O4L32 RRRRRRRRRR CRRRRRRRRR R2R8"
14330 P3$= "@4V6 O6L32 RRRRRCRRCR GRRRRCRRCR CRRRRCRRCR GRRCRCRRRR"
14340 S3$= "@4V6 O6L32 RRRRRCRRCR GRRRRCRRCR R2R8"
14350 P4$= "@2V5 O7L32 FRRRRFRRRR FRRRRFRRRR FRRRRFRRRR FRRRRFRRRR"
14360 S4$= "@2V5 O7L32 FRRRRFRRRR FRRRRFRRRR R2R8"
14370 P5$= "@2V10O1L32 ERRRRRRRER RRRRRERRRR RRRRRERRRR RRRRRRRRER"
14380 S5$= "@2V10O1L32 E"
14390 P6$= "@6V3 O6L32 RRRRRC8R   RRRRRC16RER RRRRRC8R RRRERC8R"
14400 SP1$="@2V11O5L32 CRRRRCCCCR CRRRRRRRRR CRRCR<C8R> CRRCRCRRCR"
14410 BP1$="@9V8 O2L32 R2R8       GRRGRCRRRR CRRRRGRRRR"
14420 '
14430 '
14440 '
14450 PLAY B1$,C1L$,C1R$,A1L$,A1R$,,P1$,P2$,P3$,P4$
14460 PLAY B1$,C1L$,C1R$,A2L$,A2R$,,P1$,P2$,P3$,P4$
14470 PLAY B1$,C1L$,C1R$,A3L$,A3R$,,P1$,P2$,P3$,P4$
14480 PLAY B1$,C1L$,C1R$,A4L$,A4R$,,P1$,P2$,P3$,P4$
14490 PLAY B1$,C1L$,C1R$,A1L$,A1R$,,P1$,P2$,P3$,P4$
14500 PLAY B1$,C1L$,C1R$,A2L$,A2R$,,P1$,P2$,P3$,P4$
14510 PLAY B1$,C1L$,C1R$,A3L$,A3R$,,P1$,P2$,P3$,P4$
14520 PLAY B1$,C1L$,C1R$,A4E$,A4F$,,P1$,P2$,P3$,P4$
14530 PLAY B1$,C2L$,C2R$,C2C$,,,S1$,P3$,P4$
14540 PLAY B2$,C3L$,C3R$,C3C$,,,S1$,P3$,P4$
14550 PLAY B1$,C2L$,C2R$,C2C$,,,S1$,P2$,P3$,P4$
14560 PLAY B2$,C3E$,C3F$,C3G$,,,S1$,P2$,P3$,P4$
14570 PLAY B1$,C2L$,C2R$,C2C$,,,P1$,P2$,P3$,P4$
14580 PLAY B2$,C3L$,C3R$,C3C$,,,P1$,P2$,P3$,P4$
14590 PLAY B1$,C2L$,C2R$,C2C$,,,P1$,P2$,P3$,P4$
14600 PLAY B2$,C3H$,C3I$,C3J$,,,S1$,S2$,S3$,S4$,SP1$
14610 '
14620 PLAY B3$,C4L$,C4R$,,,,P5$,P2$
14630 PLAY B4$,C4E$,C4F$,,,,P5$,P2$
14640 PLAY B5$,C4G$,C4H$,,,,P5$,P2$,P3$
14650 PLAY B4$,C4I$,C4J$,,,,P5$,P2$,P3$
14660 PLAY B3$,C4L$,C4R$,D1L$,D1R$,,P5$,P2$,P3$,P4$,P6$
14670 PLAY B4$,C4E$,C4F$,D2L$,D2R$,,P5$,P2$,P3$,P4$,P6$
14680 PLAY B5$,C4G$,C4H$,D3L$,D3R$,,P5$,P2$,P3$,P4$,P6$
14690 PLAY B4$,C4I$,C4J$,D4L$,D4R$,,P5$,P2$,P3$,P4$,P6$
14700 '
14710 PLAY B1E$,C2L$,C2R$,C2C$,D4E$,D4F$,P5$,P2$,P3$,P4$,P6$
14720 PLAY B1E$,C2L$,C2R$,C2C$,    ,    ,P5$,P2$,P3$,P4$,P6$
14730 PLAY B1E$,C2L$,C2R$,C2C$,E1L$,E1R$,P5$,P2$,P3$,P4$,P6$
14740 PLAY B1E$,C2L$,C2R$,C2C$,E1E$,E1F$,P5$,P2$,P3$,P4$,P6$,BP1$
14750 PLAY B6$ ,C5L$,C5R$,C2C$,E2L$,E2R$,P1$,P2$,P3$,P4$
14760 PLAY B6E$,C5E$,C5F$,C5G$,E2E$,E2F$,P1$,P2$,P3$,P4$
14770 PLAY B6$ ,C5L$,C5R$,C5C$,E2L$,E2R$,P1$,P2$,P3$,P4$
14780 PLAY B6F$,C5H$,C5I$,C5J$,E2G$,E2H$,P1$,P2$,P3$,P4$
14790 PLAY B6$ ,C5L$,C5R$,C2C$,E2L$,E2R$,P1$,P2$,P3$,P4$
14800 PLAY B6E$,C5E$,C5F$,C5G$,E2E$,E2F$,P1$,P2$,P3$,P4$
14810 PLAY B6$ ,C5L$,C5R$,C5C$,E2L$,E2R$,P1$,P2$,P3$,P4$
14820 PLAY B6F$,C5H$,C5I$,C5J$,E2G$,E2H$,P1$,P2$,P3$,P4$
14830 PLAY B7$ ,C6L$,C6R$,C6C$,E3L$,E3R$,P5$,P2$,P3$
14840 PLAY B7E$,C6E$,C6F$,C6G$,E3L$,E3R$,P5$,P2$,P3$
14850 PLAY B7$ ,C6L$,C6R$,C6C$,E3L$,E3R$,S5$,P2$,P3$
14860 PLAY B7E$,C6H$,C6I$,C6J$,E3L$,E3R$,   ,P2$,P3$
14870 PLAY B7$ ,C6L$,C6R$,C6C$,E3L$,E3R$
14880 PLAY B7E$,C6E$,C6F$,C6G$,E3L$,E3R$
14890 PLAY B7$ ,C6L$,C6R$,C6C$,E3L$,E3R$
14900 PLAY B7E$,C6H$,C6I$,C6J$,E3L$,E3R$
14910 PLAY     ,C2L$,C2R$,C2C$
14920 RETURN
14930 '
14940 '
14950 *S_63
14960 'CONCRETE HIGH
14970 '
14980 AL$="@19V6O2L16%C" : AR$=AL$+"[%L1" : AC$=AL$+"[%R1"
14990 A1L$=AL$+" A8>A8A8<A8>AA<A>A8A<A>A< F8>F8<F>F8<F >G8<(G>G8<)"
15000 A1R$=AR$+">R8>E8E8 R8 EE R E8E R E  R8 C8 R C8 R  D8 (R D8 )"
15010 A1C$=AC$+">R8>C8C8 R8 CC R CRC R C <R8 A8 R A8 R  B8 (R B8 )"
15020 A2L$=AL$+" A8>A8A8<A8>AA<A>A8A<A>A  D8>D8<D>D8<D  G8<(G>G8<)"
15030 A2R$=AR$+">R8>E8E8 R8 EE R E8E R E  R8 A8 R A8 R  D8 (R D8 )"
15040 G2L$=GL$+">DC<A8GA8>CRCRCD8C8 C#32D32C<A8GA8DE8G8G#32A32&A>C8"
15050 A2C$=AC$+">R8>C8C8 R8 CC R CRC R C  R8 F8 R F8 R< B8 (R B8 )"
15060 A3L$=AL$+" F8>F8<(F>F8<)4 G8>G8<(G>G8<) G>>D8<<G>G8< "
15070 A3R$=AR$+">RR>C8<(R>C8<)4 R8>D8<(R>D8<) R >A8 <R>D8< "
15080 A3C$=AC$+" RR>A8<(R>A8<)4 R8>B8<(R>B8<) R >F8 <R>B8< "
15090 A4L$=AL$+" A8>A8A8 <A8>AA<A>A8A<A>A< F8>F8(<F>F8) <F>F8   <F>F8"
15100 A4R$=AR$+">R8>E8E8  R8 EE R E8E R E  R8 C8(R  C8)  R G8    R C8"
15110 A4C$=AC$+">R8>C8C8 R8 CC R C8C R C <R8 A8(R  A8)  R A8    R A8"
15120 A4E$=AL$+" RR>D8<(D>D8<)4        E8>E8<(E>E8<)4 "
15130 A4F$=AR$+" RD>F8 (R F8 )3 R>DC<  R8 G8 (R G8 ) R>C8<RG8"
15140 A4G$=AC$+" DR>A8 (R A8 )4        R8 B8 (R B8 )4 "
15150 A4H$=AL$+" >A1"
15160 A4I$=AR$+">>E1"
15170 A4J$=AC$+">>C1"
15180 A5L$=AL$+" FF8&F>F8<F>F<F>F<F8>F8<F>F <G8>G8<(G>G8<)G>>C8<<G>B8"
15190 A5R$=AR$+" RR8&R>A8 R A R A R8 A8 R A  R8 B8 (R B8 )R >E8  R D8"
15200 A5C$=AC$+">RR8&R>C8 R C R C R8 C8 R C  R8 D8 (R D8 )R >C8< R B8"
15210 A5E$=AL$+" A>AA8<A>A8A8<A>A8A8G8 <FG8G>G8<G>G<G>G<G8>G8<G>G"
15220 A5F$=AR$+">R>CC8 R C8C8 R C8C8D8 <R8R8 B8 R B R B R8 B8 R B"
15230 A5G$=AC$+">R>EE8 R E8E8 R E8E8R8  RRD8 D8 R D R D R8 D8 R D"
15240 A5H$=AL$+" B>C8C>C8<C>C<C>C<C8>C8<C>C >C2<  <D>D<D8>E4"
15250 A5I$=AR$+" R8R8>>E8 R E R E R8 E8 R E  E2    R F R8 G4"
15260 A5J$=AC$+">R8G8 >G8 R G R G R8 G8 R G  G2    R A R8 B8"
15270 A6L$=AL$+ " (G#8)>G#8(<G#>G#)<G#8>G#<G#RG# "
15280 A6L$=A6L$+"  A#8>(A#8)<A#8>(A#)<A#>A#8A#<A#>A#"
15290 A6R$=AR$+ " >>(R8)C8(RC)R8C4 <R8G8G8R8GG8G8G8G"
15300 A6C$=AC$+ " >>R4D#8(RD#)R8D#4 R8D8D8R8DD8D8D8D"
15310 A6E$=AL$+ "  G8>G8<(G>G8<)4      G#8>G#8<(G#>G#8<)4"
15320 A6F$=AR$+ ">>R8 D#8(RD#8 )3 RD8  R8  C8  (R  C8  )3 RD8"
15330 A6G$=AC$+ ">>R8 G8 (RG8  )3 RF8  R8  D#8 (R  D#8 )3 RF8"
15340 A6H$=AL$+ " >C8>C8<(C>C8<)4     <A#8>A#8<(A#>A#8<)4"
15350 A6I$=AR$+ ">>R8 D#8(RD#8 )3 RD8  R8  C8  (R  C8  )3 RD8"
15360 A6J$=AC$+ ">>R8 G8 (RG8  )3 RF8  R8  D#8 (R  D#8 )3 RF8"
15370 A7L$=AL$+ "  G#8G#8 >(G#G#8[)4<  ]]]] A#8A#8>(A#A#8[)4"
15380 A7R$=AR$+ "  R4    >>(CC8  [)4   ]]]] RRRR   (DD8  [)4 "
15390 A7C$=AC$+ "  R4    >>(D#D#8[)4<  ]]]] RFRR  >(FF8  [)4"
15400 A7E$=AL$+ " >C8C8   >(CC8  [)4<< ]]]] A#8A#8>(A#A#8[)4"
15410 A7F$=AR$+ "  RRRR  >>(D#D#8[)4   ]]]] RRRR   (DD8  [)4 "
15420 A7G$=AC$+ " >RRG8   >(GG8  [)4<  ]]]] RFRR  >(FF8  [)4"
15430 A8L$=AL$+ " (G#G#8G#>(G#[G#8[)4<  [[[[) "
15440 A8R$=AR$+ " (R4>>    (C [C8 [)4<< [[[[) "
15450 A8C$=AC$+ " (R4>>    (D#[D#8[)4<< [[[[) "
15460 A8E$=AL$+ " (A#A#8A#>(A#[A#8[)4<  [[[[) "
15470 A8F$=AR$+ " (R4>>    (D [D8 [)4<< [[[[) "
15480 A8G$=AC$+ " (R4>>    (F [F8 [)4<< [[[[) "
15490 DL$="@3V8O3L16Q2" : DR$=DL$+"V8  "
15500 D1L$=DL$+">C4C4CC8C8<B>C4 C8C4CC8C8 E D8"
15510 D1R$=DR$+" A4A4AA8A8 G A4 A8A4AA8A8>C<B8"
15520 D2L$=DL$+">RRC8<B4>C8R<B8R>D8  E8 D8C8<B>C8C<B8>D8<B8 "
15530 D2R$=DR$+" RRA8 G4 A8R G8R B8 >C8<B8A8 G A8A G8 B8 G8 "
15540 D2E$=DL$+">RRG8F8EFRFE8 D8C8 Q8  E4<A4> G8&GF8&FE8"
15550 D2F$=DR$+">RRE8D8CDRDC8<B8A8 Q8 >C4<E4> E8&ED8&DC8"
15560 D3L$=DL$+">EREREREEREERE8 D8  DEEREREEREER C8D8"
15570 D3R$=DR$+">CRCRCRCCRCCRC8<B8> RCCRCRCCRCCR<A8B8"
15580 D3E$=DL$+">EREREREEREER C8D8  EREREREEREER G8F8"
15590 D3F$=DR$+">CRCRCRCCRCCR<A8B8> CRCRCRCCRCCR E8D8"
15600 DL$="@1V11O3L16Q8" : DR$=DL$+"V5" : DC$=DL$+""
15610 D4L$=DL$+"    G2&G4F4 E2&E8 <B8>C8D8"
15620 D4R$=DR$+"R5  G2&G4F4 E2&E8 <B8>C90 "
15630 D4E$=DL$+"    E4&E8A4B8&B8>C8 <B2E2"
15640 D4F$=DR$+"R5  E4&E8A4B8&B8>C8 <B2E4"
15650 D5L$=DL$+"   >E1&E2 E8&ED8&DC8"
15660 D5R$=DR$+"R5 >E1&E2 E8&ED     "
15670 D5E$=DL$+"    B4&B8>C8C4D4 E2&E4<G4"
15680 D5F$=DR$+"R5  B4&B8>C8C4D4 E2&E4<G90"
15690 D6L$=DL$+"   >C1&C2&C4<B4"
15700 D6R$=DR$+"R5 >C1&C2&C4<B90"
15710 D6C$=DC$+"    G1&G2&G4 F4"
15720 D6E$=DL$+"   >C1&C2&C4D4"
15730 D6F$=DR$+"R5 >C1&C2&C4D90"
15740 D6G$=DC$+"    G1&G2&G4A4"
15750 D7L$=DL$+"   >C1&C2&C4 G4"
15760 D7R$=DR$+"R5 >C1&C2&C4 G90"
15770 D7C$=DC$+"    G1&G2&G4>C4"
15780 D7E$=DL$+"   >F4&F8E8&E2 &E1                          "
15790 D7F$=DR$+"R5 >F4&F8E8&E4 &E18 @36V6O4 RRERDEE8EE8EG8E8"
15800 D7G$=DC$+"   >C4&C8C8&C2      @36V6O3 RRERDEE8EE8EG8E8"
15810 EL$="@2V10O3L16%L1" : ER$=EL$+"V4%C" : EC$=EL$+"V8%R1"
15820 E1L$=EL$+"    F#32G32&G&G2 D4 D#8 F2&F8D#4D8 "
15830 E1R$=ER$+"R5  F#32G32&G&G2 D4 D#8 F2&F8D#8  "
15840 E1E$=EL$+"    D#2&D#4 D4 D#1 "
15850 E1F$=ER$+"R5  D#2&D#4 D4 D#2&D#4 "
15860 E1G$=EL$+"    D#1 A#1 "
15870 E1H$=ER$+"R5  D#1 A#2&A#4 "
15880 E2L$=EL$+"    A#1&A#2 A#8&A#G#8&G#G8"
15890 E2R$=ER$+"R5  A#1&A#2 A#8&A#G#"
15900 E2E$=EL$+"    F4&F8 G8&G4 D#4  &D#2&D#4 D4 "
15910 E2F$=ER$+"R5  F4&F8 G8&G4 D#4  &D#2&D#4 D90 "
15920 E3L$=EL$+"    A#1&A#2&A#4>D#4"
15930 E3R$=ER$+"R5  A#1&A#2&A#4>D#90"
15940 E3E$=EL$+"   >D4&D8D#4&D#8<A#4 >D4&D8D#4&D#8F4"
15950 E3F$=ER$+"R5 >D4&D8D#4&D#8<A#4 >D4&D8D#4&D#8F90"
15960 E4L$=EL$+"   >G1&G2&G4F8D#8"
15970 E4R$=ER$+"R5 >G1&G2&G4F90"
15980 E4R$=EC$+"   >D#1&D#2&D#4D8C"
15990 E4E$=EL$+"   >D4&D8   D#4&D#8A#4  D2  D#2"
16000 E4F$=ER$+"R5 >D4&D8   D#4&D#8A#4  D2  D#4"
16010 E4G$=EC$+"    A#4&A#8>C4&C8  F4  <A#2>C2"
16020 E4H$=EL$+"   >A#1D#2D2"
16030 E4I$=ER$+"R5 >A#1D#2D4"
16040 E4J$=EC$+"   >F1 C2<A#2"
16050 E5L$=EL$+"   >D#1&D#4&D#8<A#4>C8D8D#8"
16060 E5R$=ER$+"R5 >D#1&D#4&D#8<A#4>C8D90"
16070 E5C$=EC$+"   >C1&C4&C8   <F4  G8A#8>C8"
16080 E5L$=EL$+"   >D#1&D#4&D#8<A#4>C8D8D#8"
16090 E5R$=ER$+"R5 >D#1&D#4&D#8<A#4>C8D90"
16100 E5C$=EC$+"   >C1&C4&C8   <F4  G8A#8>C8"
16110 E5E$=EL$+"   >G4&G8F8&F2   A#8&A#G#8&G#G8 F4G4"
16120 E5F$=ER$+"R5 >G4&G8F8&F2   A#8&A#G#8&G#G8 F4G90"
16130 E5G$=EC$+"   >D#4&D#8D8&D2 F8&F  F8&F  D#8D4D#4"
16140 GL$="@18V5O4L16%C" : GR$=GL$+"%L1" : GC$=GL$+"%R1["
16150 G1L$=GL$+"[[<A8&AARRRRRRE8G8>C<B  A8&AARRRRRR>E8 DC<G8"
16160 G1R$=GR$+"[[<E8&EERRRRRRC8D8 E8   E8&EERRRRRR>C8<BA D8"
16170 G2L$=GL$+">DC<A8GA8>CRCRCD8C8 C#32D32C<A8GA8D E8G8 G#32A32&A>C8"
16180 G2R$=GR$+" BA E8RE8 ARARAB8G8 R      A E8RE8R C8D8 E8        G8"
16190 G2C$=GC$+" RR C8RC8 ERRERG8E8 R      E C8DC8R<A8B8>C8        E8"
16200 G2E$=GL$+">>C8<A8 G#8G E8D#DC<A>CD E CR<A8>ER<A>ARAE32D#32E&EC&C8"
16210 G2F$=GR$+"> G8 E8 D8 R C8C<BA E AB>C<AR E8>CR<E>EREC      CD&D<G8"
16220 G2G$=GC$+"> E8 C8<B8 B A8R G8 R E8 A ER C8 A8 C CRC8     <A8G8   "
16230 G2H$=GL$+">>C8<A8 G#8G E8D#DC<A>CD E  <E2DDRDE4 "
16240 G2I$=GR$+"> G8 E8 D8 R C8C<BA E AB>C< <B2AARAB4 "
16250 G2J$=GC$+"> E8 C8<B8 B A8R G8 R E8 A  <G2EEREG4 "
16260 FL$="@32V8O4L16" : FR$=FL$+"V2R10"
16270 F1L$=FL$+"D#32E32&ED8C8DARAE8D8E4 D#32E32&EDC8<AG8G#32A32&AB8>C8"
16280 F1R$=FR$+"D#32E32&ED8C8DARAE8D8E4 D#32E32&EDC8<AG8G#32A32&AB8>C90"
16290 F1E$=FL$+"D#32E32DCA8&A<B8>C8D8D#8E8 AE32D#32DC8&C<A8 DD#EG8A>CD"
16300 F1F$=FR$+"D#32E32DCA8&A<B8>C8D8D#8E8 AE32D#32DC8&C<A8 DD#EG8A>C90"
16310 F1G$=FL$+"AD#DC8<A>CD>C<ARA>ER<E8 (DD#32E32DA8)G8E8D#32D32&D"
16320 F1H$=FR$+"AD#DC8<A>CD>C<ARA>ER<E8 (DD#32E32DA8)G8E8D90"
16330 F2L$=FL$+"V5< A8&AAARRRRD&D8E4 A8&AAARRRR>D&D8<G8 "
16340 F2R$=FR$+"V2< A8&AAARRRRD&D8E4 A8&AAARRRR>D&D8<G90"
16350 F2E$=FL$+"V5< E1&E1"
16360 F2F$=FR$+"V2<<B1&B2&B4&B8"
16370 '
16380 B1$= "@29V12O1L16Q5 A4A&A8ARAG8A8>C8 D4D&D8DRED8C8<G8      Q8"
16390 B1E$="@29V12O1L16Q5 F4F&F8FRFE8F8A8  GG8&GG8&GGRG>C8<B8>D8 Q8"
16400 B2$= "@29V12O1L16Q5 A4A&A8ARAA8G8G8  GAA8AA8AREA8G8G8      Q8"
16410 B3$= "@29V12O1L16Q5 A4A&A8ARGA8A8AD  EF&F8FRRFRCF8>C8<F8 Q8"
16420 B3E$="@29V10O1L16Q5>CDD8DD8D8FD8G8CD E8E8E8&EERDE8G8C8 Q8"
16430 B4$ ="@29V12O1L16Q5 F4F&F8FREF8A8F8 G4G&G8GRGG8>D8<G8"
16440 B4E$="@29V12O1L16Q5 ARGARA8AR>A<A8>C8<A8 G2 RRC8 D8E8"
16450 B5$ ="@28V10O2L16Q8 G#8>G#8<(G#>G#8<)3G#>>C<G#< A#8>A#8<(A#>A#8<)4"
16460 B5E$="@28V10O2L16Q8 G8>G8<  (G>G8<  )4 G#8>G#8<(G#>G#8<)3  A#>>C8"
16470 B5F$="@28V10O2L16Q8>C8>C8<  (C>C8<  )4 <A#8>A#8<(A#>A#8<)4"
16480 B6$ ="@29V12O1L16Q6 AARAARE8 D8E8C8EG  AARAARE8 >D8<E8>C8<E8"
16490 B6E$="@29V12O1L16Q6 E4E4E4E4 DEE8EREERDERG8>C8 Q8"
16500 '
16510 P1$= "@2V13O1L16  (CRRR)4 CRRRCRRRCRRRCRCR"
16520 SS1$="@2V13O1L16  C1 RRRR RRRR RRRC <G>RCR"
16530 S$  ="@2V13O1L16  C"
16540 S1$= "@2V13O1L16  (CRRR)4 CRRRRRRRRRRCCRCR" : PP2$="@5V4O3L16"
16550 P2$= PP2$+PP2$+"R4C4>>B<<C>>B<<RCR>>GG<<RR>RB<C>>BRCB<<C>>B<<RCR[C[C"
16560 Q2$= PP2$+"R4C4>>B<<C>>B<<RCR>>B<<CRR>EB<CR>>B<<C>B<C@2V9O0GR@5V6>>G"
16570 P3$= "@2V4O7L16 FRFRFRFR FRFRFRC(F32) FRFRFAFR FRFRFRCR"
16580 P4$= "@6V2O5L8  RCRCRCRC RCRCRCRC"
16590 BP1$="@2V12O5L16 R1 <C>CRR<C>CCR<C>CCCRCCR "
16600 BP2$="@1V8 O5L16 R1  CRCRCRCCRCCRCRCR"
16610 BP3$="@6V0 O6L16 (CCCCCCCC]) (CCCC]) CC]C]C] C]]C]]]C]]]C"
16620 BP4$="@9V6 O3L16 R1R2 %L1RRCR %R1CR %CCR"
16630 BP5$="@5V6 O4L16 R1 GRGRGGRGCGGRGRGR"
16640 SP1$="@1V12O5L16 (%L15 C[[[C8]  %R15 C[[[C8] )4 %C"
16650 '
16660 P1E$="@4V9 O2L16  CRRCRRRR RRCRRRRC   CRRCRRRRRRCRRRCR "
16670 P2E$="@2V13O4L16  RRBRCRBC BCRRCRBR   RRBRCRBCBCRRCR[[CC"
16680 '
16690 '
16700 '
16710 PLAY  ,A1L$,A1R$,A1C$,,,SS1$
16720 PLAY  ,A2L$,A2R$,A2C$,,,SS1$
16730 PLAY  ,A1L$,A1R$,A1C$,,,P1$
16740 PLAY  ,A3L$,A3R$,A3C$,,,P1$,BP1$
16750 PLAY B1$ ,A1L$,A1R$,A1C$,,,P1$,P2$,P3$,P4$
16760 PLAY B1$ ,A2L$,A2R$,A2C$,,,P1$,Q2$,P3$,P4$
16770 PLAY B1$ ,A1L$,A1R$,A1C$,,,P1$,P2$,P3$,P4$
16780 PLAY B1E$,A3L$,A3R$,A3C$,,,S1$,Q2$,P3$,P4$,BP2$
16790 PLAY B3$ ,A4L$,A4R$,A4C$,D1L$,D1R$,P1$,P2$,P3$,P4$
16800 PLAY B3E$,A4E$,A4E$,A4G$,D2L$,D2R$,P1$,Q2$,P3$,P4$
16810 PLAY B3$ ,A4L$,A4R$,A4C$,D1L$,D1R$,P1$,P2$,P3$,P4$
16820 PLAY B3E$,A4E$,A4E$,A4G$,D2E$,D2F$,P1$,Q2$,P3$,P4$       ,BP3$
16830 PLAY     ,A5L$,A5R$,A5C$,D3L$,D3R$,P1E$,P2E$,P3$         ,SP1$
16840 PLAY     ,A5E$,A5F$,A5G$,D3E$,D3F$,P1E$,P2E$,P3$
16850 PLAY B4$ ,A5L$,A5R$,A5C$,D3L$,D3R$,P1E$,P2E$,P3$,P4$,SS1$
16860 PLAY B4E$,A5E$,A5F$,A5G$,D3E$,D3F$,P1E$,P2E$,P3$,P4$,SS1$,BP3$
16870 PLAY B4$ ,A5L$,A5R$,A5C$,D4L$,D4R$,P1$,P2$,P1E$,P2E$,P3$,P4$
16880 PLAY B4E$,A5E$,A5F$,A5G$,D4E$,D4F$,P1$,Q2$,P1E$,P2E$,P3$,P4$
16890 PLAY B4$ ,A5L$,A5R$,A5C$,D5L$,D5R$,P1$,P2$,P1E$,P2E$,P3$,P4$
16900 PLAY B4E$,A5E$,A5F$,A5G$,D5E$,D5F$,P1$,Q2$,P1E$,P2E$,P3$,P4$
16910 PLAY A5L$,A5R$,A5C$,D6L$,D6R$,D6C$,SS1$,P2$,P3$
16920 PLAY A5E$,A5F$,A5G$,D6E$,D6F$,D6G$,S1$ ,Q2$,P3$
16930 PLAY A5L$,A5R$,A5C$,D7L$,D7R$,D7C$,P1$ ,P2$,P3$,P4$
16940 PLAY A5H$,A5I$,A5J$,D7E$,D7F$,D7G$,P1$ ,Q2$,P3$,P4$
16950 PLAY B5$ ,A6L$,A6R$,A6C$,E1L$,E1R$,P1$,   ,P3$,P4$
16960 PLAY B5E$,A6E$,A6F$,A6G$,E1E$,E1F$,P1$,   ,P3$,P4$,BP2$
16970 PLAY B5$ ,A6L$,A6R$,A6C$,E1L$,E1R$,P1$,P2$,P3$,P4$
16980 PLAY B5E$,A6E$,A6F$,A6G$,E1G$,E1H$,P1$,Q2$,P3$,P4$,BP3$
16990 PLAY B5$ ,A6L$,A6R$,A6C$,E2L$,E2R$,P1$,P2$,P3$,P4$,P1E$,P2E$,SP1$
17000 PLAY B5F$,A6H$,A6I$,A6J$,E2E$,E2F$,P1$,Q2$,P3$,P4$,P1E$,P2E$
17010 PLAY B5$ ,A6L$,A6R$,A6C$,E3L$,E3R$,P1$,P2$,P3$,P4$,P1E$,P2E$
17020 PLAY B5F$,A6H$,A6I$,A6J$,E3E$,E3F$,P1$,Q2$,P3$,P4$,P1E$,P2E$
17030 PLAY A7L$,A7R$,A7C$,E4L$,E4R$,E4C$,P1$,P3$,P4$
17040 PLAY A7E$,A7F$,A7G$,E4E$,E4F$,E4G$,P1$,P3$
17050 PLAY A7L$,A7R$,A7C$,E4L$,E4R$,E4C$,S$
17060 PLAY A7E$,A7F$,A7G$,E4H$,E4I$,E4J$
17070 '
17080 PLAY A8L$,A8R$,A8C$,E5L$,E5R$,E5C$,SS1$,P4$
17090 PLAY A8E$,A8F$,A8G$,E5E$,E5F$,E5G$,P1$ ,P4$,BP2$,BP4$,BP3$
17100 PLAY B6$ ,F1L$,F1R$,G1L$,G1R$,,P1$ ,P2$,P3$,P4$,P1E$,P2E$
17110 PLAY B6$ ,F1E$,F1F$,G1L$,G1R$,,P1$ ,Q2$,P3$,P4$,P1E$,P2E$
17120 PLAY B6$ ,F1L$,F1R$,G1L$,G1R$,,P1$ ,P2$,P3$,P4$,P1E$,P2E$
17130 PLAY B6$ ,F1G$,F1H$,G1L$,G1R$,,P1$ ,Q2$,P3$,P4$,P1E$,P2E$
17140 PLAY B6$ ,F2L$,F2L$,G2L$,G2R$,G2C$,P1$ ,P2$,P3$,P4$,P1E$,P2E$
17150 PLAY B6$ ,F2L$,F2L$,G2E$,G2F$,G2F$,P1$ ,Q2$,P3$,P4$,P1E$,P2E$
17160 PLAY B6$ ,F2L$,F2L$,G2L$,G2R$,G2C$,P1$ ,P2$,P3$,P4$,P1E$,P2E$
17170 PLAY B6E$,F2E$,F2F$,G2H$,G2I$,G2J$,SS1$,S2$,P3$,P4$,P1E$,P2E$,BP5$
17180 '
17190 PLAY  ,A1L$,A1R$,A1C$
17200 PLAY  ,A2L$,A2R$,A2C$
17210 PLAY  ,A4L$,A4R$,A4C$
17220 PLAY  ,A4E$,A4F$,A4G$
17230 PLAY  ,A4H$,A4I$,A4J$
17240 RETURN
17250 '
17260 '
17270 *S_64
17280 'ETERNAL ETHER  [ Optical Interpret edit ]
17290 '
17300 AL$="@71V10O4L8Q8" : AR$=AL$+"V8" : AC$=AL$+"R5V3"
17310 A0L$=AL$+" D4&D4"
17320 A0R$=AR$+" R4 E4"
17330 A0C$=AC$+" D4 E90"
17340 A0E$=AL$+"[[[[A4>E2<E4 F4>C2D4"
17350 A0F$=AR$+"[[[[E4>C2<C4 C4 G2B4"
17360 A0G$=AC$+"[[[[A4>E2<E4 F4>C2D90"
17370 A0H$=AL$+"[[[[A4>E2<E4 F2 ]]]D4&D4"
17380 A0I$=AR$+"[[[[E4>C2<C4 C2 ]]]R4&E4"
17390 A0J$=AC$+"[[[[A4>E2<E4 F2 ]]]D4E90"
17400 A1L$=AL$+"A2&A4A     E8 D8 E4 C4 C L16&CD8G"
17410 A1R$=AR$+"E2&E4E16G16C8<B8>C4<G4&G L16>C8E8"
17420 A1C$=AC$+"A2&A4A16G16E8 D8 E4 C4 C L16C90 "
17430 A1E$=AL$+"A2&A>C&C E <G     G &G4&G  <A&A>D"
17440 A1F$=AR$+"E2&E G>D&D <D16E16E &E4&E  &E C&C"
17450 A1G$=AC$+"A2&A>C&C E <G16E16G &G4&G  90    "
17460 A2L$=AL$+"E4&E&E16C16D &D&D16&D16G  E&E4&E16C&C4"
17470 A2R$=AR$+"C4&C D    <B &B&B16>EA16  C E4 D   <G4"
17480 A2C$=AC$+"E4&E D16C16D &D&D16 E16G16A16 EE4DC<G90"
17490 A2E$=AL$+"E4&E&E16C16&C<G&G>C  L16 E&EE8&E8A8&A8A8&AE&E8 "
17500 A2F$=AR$+"C4&C D     <A&A A G> L16 CD&D8G8&G8G8&G8G&G D8 "
17510 A2G$=AC$+"E4&E D16C16<AGA>C L16 EDE8G8A8G8A8 G90 "
17520 A3L$=AL$+"A4>C4&C C&C<G  E2&E4&E G "
17530 A3R$=AR$+"E4 G4 B&B B&B <C2&C4>E&E "
17540 A3C$=AC$+"A4>C4<B>C<BG E2&E4 E90   "
17550 A3E$=AL$+"A4>C4&C C&C<G >E2&E4< G4 "
17560 A3F$=AR$+"E4 G4 B&B>D&D  C2&C4< D4 "
17570 A3G$=AC$+"A4>C4<B>CD<G  >E2&E4< G90"
17580 A4L$=AL$+"A4>C4&C C&C<G> G&GE16&E16C&CC&DE  "
17590 A4R$=AR$+"E4 G4 B&B>D&D  DA&A16D16&D<A&A>D&D"
17600 A4C$=AC$+"A4>C4<B>CD<G>  GAE16D16C<A>CD90"
17610 A4E$=AL$+">C4<A4&A> D&D4 C2&C4C#4"
17620 A4F$=AR$+" G4 E4>  C&CE4 C2&C4C#4"
17630 A4G$=AC$+">C4<A4>  CD E4 C2&C4C#90"
17640 A5L$=AL$+" G4&G8A4&A4E8  &E2&E8 &E8>D8&D8"
17650 A5R$=AR$+" D4&D8E4 D4C8  &C2&C8 >E8&E8E8"
17660 A5C$=AC$+" G4&G8A4 D4E8  &E2&E8 >E8D90 "
17670 A5E$=AL$+">C8&C8<G8&G4 D8&D8 G8 A4G4E4 D4"
17680 A5F$=AR$+" G8>D8&D8<A4&A8 E8&E8 E4D4C4<B4"
17690 A5G$=AC$+">C8D8<G8A4 D8E8G8 A4G4E4D90"
17700 A5H$=AL$+" E1"
17710 A5I$=AR$+"<A1"
17720 A5J$=AC$+" E1"
17730 A6L$=AL$+"A4>C4&C C&C<G &GE&EE&EC&CC"
17740 A6R$=AR$+"E4 G4 B&B B&B &BCD&DD&D<B&B"
17750 A6C$=AC$+"A4>C4<B>C<BG   REDEDC<B90"
17760 A6E$=AL$+" E&EA&A>D4&D< B B4A4"
17770 A6F$=AR$+" CG&G>C<B4>C& C<G4E4"
17780 A6G$=AC$+" EGA>CD4C< B B4A90 "
17790 '
17800 DL$="@32V5O4L16Q8" : DR$=DL$+"V1R5"
17810 D1L$=DL$+"G4G4GRD#4C2&C4 C8D#8F8"
17820 D1R$=DR$+"G4G4GRD#4C2&C4 C8D#90 "
17830 D1E$=DL$+"G4G4GRD#4C2  C8D#8C8D#8F8"
17840 D1F$=DR$+"G4G4GRD#4C2  C8D#8C8D#90 "
17850 D2L$=DL$+"G4G4G8F4 A#4G#8GG#8G8&G <A#8>C8D#8 "
17860 D2R$=DR$+"G4G4GRF4 A#4G#8GG#8G8&G <A#8>C90   "
17870 D2E$=DL$+"F4&F8G4&G8D#4 &D#2 A#4G#4 "
17880 D2F$=DR$+"F4&F8G4&G8D#4 &D#2 A#4G#90"
17890 D3L$=DL$+"G4&G8F#4&F#8G4 >D#2<F2     "
17900 D3R$=DR$+"G4&G8F#4&F#8G4 >D#2<F4&F90 "
17910 D3E$=DL$+"G4&G8F4&F8G4 GRFD#8&D# CRD32 D#32&D#&D#8F4"
17920 D3F$=DR$+"G4&G8F4&F8G4 GRFD#8&D# CRD32 D#32&D#&D#8F90"
17930 D3G$=DL$+"G2F2D#2F2"
17940 D3H$=DR$+"G2F2D#2F4"
17950 '
17960 '
17970 E1L$="@21V5O3L16Q1   (%L1>G#<G#D#%R1>G#<G#D#%CG#>D#<[)4 Q8"
17980 E1R$="@21V2O3L16Q1R5 (%L1>G#<G#D#%R1>G#<G#D#%CG#>D#<[)3   "
17990 E1R$=        E1R$+   "%L1>G#<G#D#%R1>G#<G#90 %C         Q8"
18000 E1E$="@21V5O3L16Q1  (%L1>G<GD%R1>G<GD%CG>D<)4            Q8"
18010 E1F$="@21V2O3L16Q1R5(%L1>G<GD%R1>G<GD%CG>D<)3 %L1>G<GD%R1>G<G90 Q8"
18020 E2L$="@88V7O3L16Q2    RRG>CR>CRC<GDCRRC<GB>CRG>CR<AFRRECRFR Q8"
18030 E2R$="@88V4O3L16Q1R5  RRG>CR>CRC<GDCRRC<GB>CRG>CR<AFRREC90  Q8"
18040 E2E$="@88V7O3L16Q2   >(G[GR)4V7 GRGB >(C[CR)4V7 DR<GR "
18050 E2F$="@88V4O3L16Q1R5 >(G[GR)4V7 GRGB >(C[CR)4V7 D90   "
18060 E3L$="@88V7O3L16Q2   >EFGR>GRR<C B>C<BGRREB> CRBARDER RCRR>GCER "
18070 E3R$="@88V4O3L16Q1R5 >EFGR>GRR<C B>C<BGRREB> CRBARDER RCRR>G90  "
18080 E3E$="@88V7O3L16Q2   >>BAGF ERRC GRAR<G>CRE FRRGRR>CR <RRRRRC<FR Q8"
18090 E3F$="@88V4O3L16Q1R5 >>BAGF ERRC GRAR<G>CRE FRRGRR>CR <RRRR      Q8"
18100 E4L$="@21V6O2L16Q2  (%L1CRC>CR<BGR %R1CGC>GRC<BR)         Q8"
18110 E4R$="@21V2O2L16Q2R5 %L1CRC>CR<BGRCGC>GRC<BR %R1CRC>CR<BGRCGC>GR90Q8"
18120 E4E$="@72V2O4L16Q2  (%L1CRC>CR<BGR %R1CGC>GRC<BR)         Q8"
18130 E4F$="@72V0O4L16Q2R5 %R1CRC>CR<BGRCGC>GRC<BR %L1CRC>CR<BGRCGC>GR90Q8"
18140 E4G$="@72V2O4L16Q2   %L1CRC>CR<BGR %R1CGC>GRC<BR %C C1      Q8"
18150 E4H$="@72V0O4L16Q2R5 %R1CRC>CR<BGR %L1CGC>GRC<BR %C C2      Q8"
18160 E5$ ="@80V3O6L16 (Q1CCFCQ8>CQ1<CCF >C<<Q8C>Q1C@78<<]C[>C>GC@80)Q8"
18170 E6L$="@21V6O5L16Q2   DA&A8EREF8RRRE8GC DA&A8EREF8RRDE8G8 Q8"
18180 E6R$="@21V1O5L16Q3R5 DA&A8EREF8RRRE8GC DA&A8EREF8RRDE90  Q8"
18190 E6E$="@21V6O5L16Q2   >EE<<A>A8GRAREE8G8A>D EE<<A>A8GRAREE8G8A8 Q8"
18200 E6F$="@21V1O5L16Q3R5 >EE<<A>A8GRAREE8G8A>D EE<<A>A8GRAREE8G90  Q8"
18210 '
18220 B$="@70V5O2L16"
18230 B1L$=B$+" F1E1"              : B1R$=B$+" A1G1"
18240 B2L$=B$+" D2E2 D2C2"         : B2R$=B$+" F2G2 F2E2"
18250 B2E$=B$+" D2E2 D4E4F4G4"     : B2F$=B$+" F2G2 F4G4A4B4"
18260 B3L$=B$+" F2G2 C2E2"         : B3R$=B$+" A2B2 E2G2"
18270 B3E$=B$+" F2G2 C2&C4<G#4  "  : B3F$=B$+" A2B2 E2&E4 &E4  "
18280 B3G$=B$+" F2G2 A2&A4G4    "
18290 B91$="@107V7O1L16Q7 CFFFC8CCG8D8G8C8 <G>CC<C>C8CC DE<B8&BB>E<B"
18300 B4$ ="@88V8O0L16 Q6 G#RG#8G#GG#8GG#RG#>D#8<G#8 "
18310 B4$ =B4$+"GG#8G#RGG#RD#>>Q3G#Q6<<G#8 A#RG#8 Q8"
18320 B4E$="@88V8O0L16Q6(GRGRFGRG)3 GRGRA#RGR Q8"
18330 B5$ =B$+"G#1"
18340 B5E$=B$+"G1"
18350 B5F$=B$+"F2G2G#2A#2"
18360 B6$ ="@88 V9O1L16Q5 CRCRRCRR CRRRRRRC FRFRRFRR FRRRGRFR Q8"
18370 B6E$="@88 V6O1L16Q5 RRCRRCRR CRRRRRRC FRFRRFRR FRRRRRGR Q8"
18380 B7$ ="@107V9O1L16Q6 ARRARRAR RAA8ARA8 FRRFRRFR RFF8FRF8 Q8"
18390 B7E$="@88 V6O1L16Q3 AAA8RRER RRRRRRER DDD8RRDR RRRRERGR"
18400 B8$ ="@88 V8O1L16Q3 FFF8RRCR RRRRRRFR EEE8RRER RRRRCRER"
18410 B8E$="@88 V8O1L16Q3 DRD8DDRD ECE8F8E8 DRD8DDRD CCC8CRC8"
18420 B8F$="@88 V8O1L16Q3 DRD8DDRD ECE8F8E8 @70V5O2 D4E4F4G4"
18430 B9$ =B$+"F2&F4&F8 FR F1"
18440 B9E$=B$+"E1A2G2"
18450 B9F$=B$+"F1"
18460 '
18470 '
18480 P1$= "@1 V5O0L16 GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRGR"
18490 S1$= "@1 V5O0L16 GRRRGRRRGRRRGRRR GRRRRRRRRRRRRRRR"
18500 SS1$="@1 V5O0L16 CRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRR"
18510 Q1$= "@9 V7O1L16 CCCRRRRRRRCRRRRC RRCRRRCRRC<C>RRRCR"
18520 P2$= "@4 V4O6L16 RRRRCRRRRRRRRRRC RRRRRRRCRC@9O0CO6@4RCR[CC"
18530 Q2$= "@10V6O1L16 RRRRCRRRRRRRCRRC RRRRCRRRRCRRCRRR "
18540 P3$= "@9 V4O6L16 FRFRFRFRFRFRFRFF32F32 FRFRFRFCFRFRFCFR"
18550 P4$= "@6 V1O5L16 RRCRRRCRRRCRRRCR RRCRRRCRRRCRRRCR"
18560 S4$= "@6 V1O5L16 RRCRRRCRRRCRRRCR RRCRRRRRRRRRR>CCC"
18570 P5$= "@8 V4O2L16 %R15C1 %L15C1"
18580 Q5$= "@11V5O7L16 R2R4 CRRG      @9C@11RRR<CRRR RRRR>C4"
18590 R5$= "@11V5O1L16 %L8RRRR>C<RRR%R8RRCRRRR>C<%L4RRCRCRR>C<%R4CRRRRR>CR"
18600 BP1$="@1 V5O0L16 RRRRRRRRRRRRRRRR RRRRRRRRRRCRCRCR"
18610 BP2$="@7 V3O4L16 RRRRRRRRRRRRRRRR RRCC32<G32>CCRCRCCRCRCR"
18620 '
18630 '
18640 '
18650 PLAY A0L$,A0R$,A0C$
18660 PLAY A1L$,A1R$,A1C$,B1L$,B1R$,,   ,P2$,P3$
18670 PLAY A1E$,A1F$,A1G$,B1L$,B1R$,,   ,P2$,P3$
18680 PLAY A2L$,A2R$,A2C$,B2L$,B2R$,,S1$,P2$,P3$,S4$,BP1$
18690 PLAY A2E$,A2F$,A2G$,B2E$,B2F$,,P1$,P2$,P3$,P4$,BP2$
18700 PLAY A1L$,A1R$,A1C$,B3L$,B3R$,,P1$,P2$,P3$,P4$
18710 PLAY A3E$,A3F$,A3G$,B3L$,B3R$,,P1$,P2$,P3$,P4$
18720 PLAY A4L$,A4R$,A4C$,B3L$,B3R$,,P1$,P2$,P3$,P4$
18730 PLAY A4E$,A4F$,A4G$,B3E$,B3F$,,S1$,P2$,P3$,P4$,BP1$
18740 '
18750 PLAY B4$ ,D1L$,D1R$,E1L$,E1R$,,P1$,Q2$,P3$,P5$
18760 PLAY B4E$,D1E$,D1F$,E1E$,E1F$,,P1$,Q2$,P3$,P5$
18770 PLAY B4$ ,D2L$,D2R$,E1L$,E1R$,,P1$,Q2$,P3$,P5$
18780 PLAY B4E$,D2E$,D2F$,E1E$,E1F$,,P1$,Q2$,P3$,P5$
18790 PLAY B5$ ,D3L$,D3R$,E1L$,E1R$,,Q1$,Q2$,P3$,P5$,Q5$
18800 PLAY B5E$,D3E$,D3F$,E1E$,E1F$,,Q1$,Q2$,P3$,P5$,Q5$
18810 PLAY B5$ ,D3L$,D3R$,E1L$,E1R$,,Q1$,Q2$,P3$,P5$,Q5$
18820 PLAY B5F$,D3G$,D3H$,E1E$,E1F$,,Q1$,Q2$,P3$,P5$,Q5$,BP1$
18830 '
18840 PLAY     ,E2L$,E2R$,E4L$,E4R$,E5$,Q1$,P2$,P3$,R5$
18850 PLAY     ,E2E$,E2F$,E4L$,E4R$,E5$,Q1$,P2$,P3$,R5$
18860 PLAY B6E$,E3L$,E3R$,E4L$,E4R$,E5$,P1$,P2$,P3$,R5$
18870 PLAY B6E$,E3E$,E3F$,E4L$,E4R$,E5$,P1$,P2$,P3$,Q5$,BP2$
18880 PLAY B6$ ,E2L$,E2R$,E4L$,E4R$,E5$,P1$,P2$,P3$,P4$,R5$
18890 PLAY B6$ ,E2E$,E2F$,E4L$,E4R$,E5$,P1$,P2$,P3$,P4$,R5$
18900 PLAY B6$ ,E3L$,E3R$,E4L$,E4R$,E5$,P1$,P2$,P3$,P4$,R5$
18910 PLAY B6$ ,E3E$,E3F$,E4L$,E4R$,E5$,S1$,S2$,P3$,P4$,Q5$
18920 '
18930 PLAY B7$ ,E6L$,E6R$,E4L$,E4R$,E5$,   ,P2$,P3$,P4$,R5$
18940 PLAY B7$ ,E6L$,E6R$,E4L$,E4R$,E5$,   ,P2$,P3$,P4$,R5$
18950 PLAY B7$ ,E6E$,E6F$,E4L$,E4R$,E5$,P1$,P2$,P3$,P4$,R5$
18960 PLAY B7$ ,E6E$,E6F$,E4L$,E4R$,E5$,P1$,P2$,P3$,P4$,Q5$,BP2$
18970 PLAY B7E$,A0E$,A0F$,A0G$,E4E$,E4F$,SS1$,R5$
18980 PLAY B7E$,A0E$,A0F$,A0G$,E4E$,E4F$,    ,R5$
18990 PLAY B7E$,A0E$,A0F$,A0G$,E4E$,E4F$,S1$ ,R5$,   ,BP1$
19000 PLAY B7E$,A0H$,A0I$,A0J$,E4E$,E4F$,P1$ ,R5$,P4$,BP2$
19010 '
19020 PLAY A1L$,A1R$,A1C$,B8$ ,E4E$,E4F$,SS1$,P2$,P3$,P4$,R5$
19030 PLAY A1E$,A1F$,A1G$,B8$ ,E4E$,E4F$,SS1$,P2$,P3$,P4$,R5$
19040 PLAY A2L$,A2R$,A2C$,B8E$,E4E$,E4F$,SS1$,P2$,P3$,P4$,R5$
19050 PLAY A2E$,A2F$,A2G$,B8F$,E4G$,E4H$,SS1$,P2$,P3$,P4$,Q5$,BP1$
19060 PLAY A1L$,A1R$,A1C$,B3L$,E4E$,E4F$,P1$,P2$,P3$,P4$,R5$
19070 PLAY A3E$,A3F$,A3G$,B3L$,E4E$,E4F$,P1$,P2$,P3$,P4$,R5$
19080 PLAY A6L$,A6R$,A6C$,B3L$,E4E$,E4F$,P1$,P2$,P3$,P4$,R5$
19090 PLAY A6E$,A6F$,A6G$,B3G$,E4E$,E4F$,S1$,P2$,P3$,P4$,Q5$,BP1$
19100 PLAY A5L$,A5R$,A5C$,B9$ ,E4E$,E4F$,SS1$,R5$
19110 PLAY A5E$,A5F$,A5G$,B9E$,E4G$,E4H$,    ,Q5$
19120 PLAY A5H$,A5I$,A5J$,B9F$
19130 RETURN
19140 '
19150 '
19160 *S_65
19170 'ELEVATION
19180 '
19190 AL$="@20V8O4L16%L1" : AR$=AL$+"%R1"
19200 A1L$=AL$+"E1  D4&D8C4&C8D4"
19210 A1R$=AR$+"C1 <B4&B8A4&A8B4"
19220 A1E$=AL$+"E1  A4&A8G4&G8 D4"
19230 A1F$=AR$+"C1  E4&E8D4&D8<B4"
19240 A2L$=AL$+"Q5 RRE8 G#32A32G8E8 D E D<GA>CD RRA8GARARAG#32A32R>CRDRQ8"
19250 A2R$=AR$+"Q7 RRC8 E      D8C8<B>C<B DE GB>RRE8DEREREE      R G8BRQ8"
19260 A2E$=AL$+ "Q5 >D#32E32DC<A8G#GE8DC<A8L32A>CDD#EG "
19270 A2E$=A2E$+"L16>CDR<GARDER<A>CRE8G8 Q8"
19280 A2F$=AR$+ "Q7 >C<BAE8CDC8<BAE8L32EGB16>CD L16 GBRDER<B>CR<EGR>C8D8"
19290 A3L$=AL$+"Q5  RRARRE8&E D8&D E8&EG8 G#ARGRE8&E D8&D E8&EG8"
19300 A3R$=AR$+"Q7  RRERRC8&C<B8&B>C8&CD8 D ERDRC8&C<B8&B>C8&CD8"
19310 A3E$=AL$+"Q5  RRARRE8&E D8&D E8&EG8 A>CRCRC<A8>D#32E32DC<E8&EG8"
19320 A3F$=AR$+"Q7  RRERRC8&C<B8&B>C8&CD8 E GRG8G E8>C     <BA C8&CD8"
19330 A3G$=AL$+"Q5  ERARRE8&E D8&D E8&EGG# @20< A4>C4 D8   E8GA>C8"
19340 A3H$=AR$+"Q7  CRERRC8&C<B8&B>C8&CD8  @20< E4 G4 B>D# C8DE A8"
19350 A4L$=AL$+"@106Q8  D4&D8C8&C2 <B4&B8>C4&C8D4"
19360 A4R$=AR$+"@106Q8< B4&B8A8&A2  G4&G8 A4&A8B4"
19370 A4E$=AL$+"@106Q8  D4&D8C8&C2 <B4&B8>D4&D8<G4"
19380 A4F$=AR$+"@106Q8< B4&B8A8&A2  G4&G8 B4&B8 D4"
19390 '
19400 CL$="@18V8O4L16%L1Q3" : CR$=CL$+"%R1[[Q8" : CC$=CL$+"%C[[Q8"
19410 C1L$=CL$+" RRRRA&A8A RRRRRRRR  RRRRA&A8A RRRRRRRG"
19420 C1R$=CR$+" RRRRE&E8E RRRRRRRR  RRRRE&E8E RRRRRRRE"
19430 C1C$=CC$+" RRRRC&C8C RRRRRRRR  RRRRC&C8C RRRRRRRC"
19440 C1E$=CL$+" RRRRA&A8A RRRRRRRR  RRRRA&A8A D4E4"
19450 C1F$=CR$+" RRRRE&E8E RRRRRRRR  RRRRE&E8E<A4B4 "
19460 C1G$=CC$+" RRRRC&C8C RRRRRRRR  RRRRC&C8C<F4G4 "
19470 C2L$=CL$+" A4 D#4D4C8<A8 GA8A8AA8>C4D8 E8"
19480 C2R$=CR$+" E4 C4<A4G8 E8 DE8E8EE8 G4A8>C8"
19490 C2C$=CC$+" C4<A4 F4E8 C8<GA8A8AA8>C4D8 A8"
19500 C2E$=CL$+" A RA8 GA8A>CRDRD#RDC< A4>C4D8 E8G8 E8 "
19510 C2F$=CR$+" R RE8 DE8E GRARA RAG  E4 G4A8>C8D8 C8"
19520 C2G$=CC$+"<A>RC8 CC8C DRERE RED  C4 E4F8 G8A8 G8"
19530 C2H$=CL$+" A RA8 GA8A>CRDRD#RDC< A4>C4D8 E8G8 A8 "
19540 C2I$=CR$+" R RE8 DE8E GRARA RAG  E4 G4A8>C8D8 E8"
19550 C2J$=CC$+"<A>RC8 CC8C DRERE RED  C4 E4F8 G8A8 C8"
19560 C3L$=CL$+"D#32E32&E&E4G4&G8G#32A32&A&A8  G8E4 D4&D8 E4"
19570 C3R$=CR$+"C4&C8       C4&C8 E4           E8C4<B4&B8>C4"
19580 C3C$=CC$+"R4&R8       E4&E8 C4           R8R4<F4&F8 G4"
19590 C3E$=CL$+"C#32D32&DC2<A4>C8  D4&D8 E4&E8F4   "
19600 C3F$=CR$+"<B8       A2 F4 A8  B4&B8>C4&C8D4   "
19610 C3G$=CC$+"<R8       F2&F4 F8  R4 G8 R4 G8B4 "
19620 C4L$=CL$+"@19 RRRRARRR RRRRRRRR RRRRRRRR RRRR G ARA"
19630 C4R$=CR$+"@19 RRRRERRR RRRRRRRR RRRRRRRR RRRR D ERE"
19640 C4C$=CC$+"@19 RRRRCRRR RRRRRRRR RRRRRRRR RRRR<B>CRC"
19650 C4E$=CL$+"@19 RRRRARRR RRRRRRRR RRRRRRRR >RRRRR DR R"
19660 C4F$=CR$+"@19 RRRRERRR RRRRRRRR RRRRRRRR >RRRRD#RC R"
19670 C4G$=CC$+"@19 RRRRCRRR RRRRRRRR RRRRRRRR >RRRER RR<G"
19680 C5L$=CL$+"@24Q4<  E4E4ERE4  E4ERE4E<E>E8<B8>D8"
19690 C5R$=CR$+"@24Q4<  C4C4CRC4 <B4BRB4B<B>B8<G8 B8 "
19700 C5C$=CC$+"@24Q4< <A4A4ARA4  G4GRG4G<G>G8 E8 G8"
19710 C5E$=CL$+"@24Q4<  C4C4CRC4  C4<B RB4> D4<B4"
19720 C5F$=CR$+"@24Q4< <A4A4ARA4 <G4 G RG4  B4 G4"
19730 C5G$=CC$+"@24Q4< <F4F4FRF4  E4 E RE4  G4 E4"
19740 C5H$=CL$+"@24Q4<  C4C4CRD4 <A4ARA4 <B>(B8&B)<B Q8"
19750 C5I$=CR$+"@24Q4< <A4A4ARG4  F4FRF4 <G>(G8&G)<G Q8"
19760 C5J$=CC$+"@24Q4< <F4F4FRE4  D4DRD4 <E>(E8&E)<E Q8"
19770 C6L$=CL$+"@106Q4< ((%L1E[[%R1E8[))3"
19780 C6R$=CR$+"@106Q4< ((%R1C[[%L1C8[))3"
19790 C6C$=CC$+"@106Q4< ((A[[A8[))3"
19800 '
19810 D1L$="@43V5O4L16   %R1 A8&A4>A8&A2  %L1<G8&G4>G8&G2"
19820 D1R$="@43V1O4L16R5 %L1 A8&A4>A8&A2  %R1<G8&G4>G8&G4"
19830 D1E$="@43V5O4L16   %R1>C8&C4>C8&C2< %L1<G8&G4>G8&G2"
19840 D1F$="@43V1O4L16R5 %L1>C8&C4>C8&C2< %R1<G8&G4>G8&G4"
19850 D2L$="@19V6O3L16Q1  ARRR>ARRR<A>GR>CR GER <RR ARGARARAAR>CRDR Q8"
19860 D2C$="@19V6O3L16Q1  ERRR>ERRC R DR GR DRR  RA#ERDERERE8R GRBR Q8"
19870 D2R$="@19V6O3L16Q1  RRRR>CRRE R<BR>ER<BRR> BR RRRCRCRC8R DRER Q8"
19880 '
19890 E1$ ="@27V8O2L16Q1AARA>A8&A<A32E32A>A<A8>A8<AAE8&EE>E<EE8&E>E<E8D8E8"
19900 E2$ ="@27V8O2L16Q1FFRF>F8&F<F32C32F>F<F8>F8<FCG8&GG>G<GG8&G>G<G8F8G8"
19910 E3L$="@94V10O4L16    B4&B8>C2&C8 <B4&B8>D4&D8<B4"
19920 E3R$="@94V3 O4L16R5  B4&B8>C2&C8 <B4&B8>D4&D8<B90"
19930 E3E$="@94V10O4L16   >C1<E4&E8G4&G8B4"
19940 E3F$="@94V3 O4L16R5 >C1<E4&E8G4&G8B90"
19950 E4L$="@94V10O4L16   >D#32E4&ER32A4G4E8< GA>C8D#32E32DR<ARGA8>C8D8"
19960 E4R$="@94V3 O4L16R5 >D#32E4&ER32A4G4E8< GA>C8D#32E32DR<ARGA8>C90"
19970 E4E$="@94V10O4L16   >D#32E4&ER32G4A4>C8 C#D<EARGRERD#RDC8<G8"
19980 E4F$="@94V3 O4L16R5 >D#32E4&ER32G4A4>C8 C#D<EARGRERD#RDC90  "
19990 E5L$="@94V10O4L16>>D#32ER32DER<A>CR<GAREGR>E8DECR<G8AE8GD8L32CDD#EG8"
20000 E5R$="@94V3 O4L16R5>>D#32ER32DER<A>CR<GAREGR>E8 DECR<G8AE8GD8C90 "
20010 E5E$="@94V10O4L16   >ARARGARERGAR>C8D8< GAAR>ERD#DRC<ARG8E8"
20020 E5F$="@94V3 O4L16R5 >ARARGARERGAR>C8D8< GAAR>ERD#DRC<ARG90 "
20030 E5G$="@94V10O4L16   >ARAEGARDE>E<AR>C8D8< GEA8>C8D8 D32ER32G8A8D8"
20040 E5H$="@94V3 O4L16R5 >ARAEGARDE>E<AR>C8D8< GEA8>C8D8 D32ER32G8A90"
20050 E6L$="@94V10O4L16   >G4&G8 V5A1"
20060 E6R$="@94V3 O4L16   >E4&E8 V1E1"
20070 B$="@28V9O2L16Q8"
20080 B1$= B$+"Q6 ARA8RRRRR>C<A8G8A8 AGA8 RRR>A< D8>D8<E8>E8< Q8"
20090 B1E$=B$+"Q6 ARA8RRRRR>C<A8G8AD32E32 AGA8 RRR>A< A8>A8E4 Q8"
20100 B1F$=B$+"Q6 ARA8 R4R2 R2R4 EEG8 "
20110 B2$= B$+"Q6>DRD8<A4>CDD8<A8>C8 E2<G4A4"
20120 B2E$=B$+"Q6>DRD8<A4>CDD8<A8>C8 <E4G4A4>C8&CC"
20130 B2F$=B$+"V6 A1"
20140 B3$ =B$+"Q6 B>CRCG8CF8CE8D8E8 <ERE8DE8 ER>E<E8F8G8"
20150 B3E$=B$+"Q6 EFF8FF8FRFF8G8AG# G8G8>DC8<BR>C<B8G8>D8 Q8"
20160 B4$ =B$+"   AA<AR>AR<A>ARA<A8>AR<AB >C>CRCRCC8E8&ED&D8<E8"
20170 B5$ =B$+"Q8 DRD8>DCR<AR>DC<AG8A>C EERDERGERBERG8>C8 "
20180 B6$ ="@112V5O1L16Q6 (A8E8)4(>C8<G8)3>C8<E8 Q8"
20190 B6E$="@112V5O1L16Q6 (F8C8)4(G8D8)3G8<B8    Q8"
20200 B7$ ="@88V9O1L16Q6 G8ARA8DEGA8A8&A>C8< DD#ERE8<E8>>E8&ED8&D<G8 "
20210 B7E$="@88V9O1L16Q6 FRRRFRRREF8F8EA8 DEGRG8GG>C<G8B8&B>D8"
20220 B7F$="@88V5O0L16Q8 A1"
20230 B8$ ="@88V6O1L16Q8 A1E1"
20240 B8E$="@88V6O1L16Q8 F1G1"
20250 B8F$="@88V6O1L16Q8 F1G2(D8G8)"
20260 '
20270 '
20280 P1$= "@2V7O1L16 CRCRRRRRRRCRRRRC CRRCRRRRRRCRRRCR"
20290 S1$= "@2V7O1L16 CRCRRRRRRRCRRRRC C1"
20300 SS1$="@9V9O1L16 CRRRRRRRRRRRRRRR RRRRRRRRRRCRCRCR"
20310 P2$= "@1V9O4L16 RRRRCRR>CRC<RRCRRR RRRRCRR>CRC<RRCR[[CC "
20320 Q2$= "@1V9O4L16 RRRRCRR>CRC<RRCRRR RRRRCRRR>C<CRRCR[[CC"
20330 R2$= "@1V9O4L16 RRRRCRR>CRC<RRCRRR RRRRCRR>CRCCR<C>CCC"
20340 S2$= "@1V9O4L16 RRRRCRR>CRC<RRCRRR RRRRRRRRRRRRRR"
20350 P3$= "@5V3O6L16 CRCCRRCRCRRRRRCR CRCRRRCRCRRCRRRR"
20360 Q3$= "@5V3O6L16 RRCR RRCR CRRR RCRR CRCR RRCR CRRC RCRR"
20370 S3$= "@5V3O6L16 CRCCRRCRCRRRRRCR CRRRRRRRRRRRRRRR"
20380 P4$= "@2V4O7L16 RRFRRRFRRRFRRRFA32C32 RRFRRRFRRRFRCRFR"
20390 S4$= "@2V4O7L16 RRFRRRFRRRFRRRFR CRRRRRRRRRRRRRRR"
20400 P5$= "@9V9O1L16 CRRCRRRRRRCRRCRC CRRCRRRRRRCRRRCR"
20410 S5$= "@9V9O1L16 CRRCRRRRRRCRRCRC CRRRRRRRRRRRRRRR"
20420 P6$= "@4V5O2L16 CRRCRRCRCRRCRRCR CRRCRRCRCRRCRRCR"
20430 Q6$= "@10V3O1L16 RRCRRCRCRRCRC<C>CR RRCRRCRCRRCRCRCR"
20440 S6$= "@10V3O1L16 RRCRRCRCRRCRC<C>CR RRRRRRRRRRRRRRRR"
20450 P7$= "@1 V8O0L16 GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRGR"
20460 S7$= "@1 V8O0L16 GRRRGRRRGRRRGRRR GRRRRRRRRR]]]CRCRCR"
20470 BP1$="@10V8O4L16 RRRRRRRRRRRRRRRR RRRRRRRRRRRRC4"
20480 BP2$="@9 V8O3L16 R2    RRRRCRR<C> RRCRCCRCR<C>CR@7<G4"
20490 BP3$="@6 V0O7L16 (FFFF])4 (FF]FF])3 ]F]F]F]F"
20500 DP1L$="@8V5O2L16   %R1 A8&A4>A8&A2  %L1<G8&G4>G8&G2"
20510 DP1R$="@8V1O2L16R5 %L1 A8&A4>A8&A2  %R1<G8&G4>G8&G4"
20520 DP1E$="@8V5O2L16   %R1>C8&C4>C8&C2< %L1<G8&G4>G8&G2"
20530 DP1F$="@8V1O2L16R5 %L1>C8&C4>C8&C2< %R1<G8&G4>G8&G4"
20540 '
20550 '
20560 '
20570 PLAY B1F$,C1L$,C1R$,C1C$,,,   ,P2$,P3$
20580 PLAY B1F$,C1E$,C1F$,C1G$,,,   ,Q2$,P3$
20590 PLAY B1$ ,C1L$,C1R$,C1C$,,,P1$,P2$,P3$
20600 PLAY B1E$,C1E$,C1F$,C1G$,,,P1$,R2$,P3$
20610 PLAY B2$ ,C2L$,C2R$,C2C$,,,P1$,P2$,P3$,P4$
20620 PLAY B2E$,C2E$,C2F$,C2G$,,,P1$,Q2$,P3$,P4$
20630 PLAY B2$ ,C2L$,C2R$,C2C$,,,P1$,P2$,P3$,P4$
20640 PLAY B2E$,C2H$,C2I$,C2J$,,,P1$,R2$,P3$,P4$
20650 '
20660 PLAY B2F$,    ,    ,    ,,,P5$,P2$,Q3$,P4$
20670 PLAY     ,    ,    ,    ,,,P5$,Q2$,Q3$,P4$
20680 PLAY     ,    ,    ,    ,,,P5$,P2$,Q3$,P4$,P6$,Q6$,BP1$
20690 PLAY     ,    ,    ,    ,,,S5$,S2$,S3$,S4$,P6$,S6$,BP1$
20700 PLAY B4$ ,A4L$,A4R$,    ,D1L$,D1R$,P5$ ,P2$,Q3$,P4$,P6$
20710 PLAY B5$ ,A4E$,A4F$,    ,D1E$,D1F$,P5$ ,Q2$,Q3$,P4$,P6$
20720 PLAY B4$ ,A4L$,A4R$,    ,D1L$,D1R$,P5$ ,P2$,Q3$,P4$,P6$
20730 PLAY B5$ ,A4E$,A4F$,    ,D1E$,D1F$,SS1$,S2$,S3$,S4$,   ,BP2$
20740 PLAY B4$ ,A2L$,A2R$,D2L$,D2R$,D2C$,P5$ ,P2$,Q3$,P4$,P6$
20750 PLAY B5$ ,A2E$,A2F$,D2L$,D2R$,D2C$,P5$ ,Q2$,Q3$,P4$,P6$
20760 PLAY B4$ ,A2L$,A2R$,D2L$,D2R$,D2C$,P5$ ,P2$,Q3$,P4$,P6$,Q6$
20770 PLAY B5$ ,A2E$,A2F$,D2L$,D2R$,D2C$,P5$ ,R2$,Q3$,P4$,P6$,Q6$
20780 '
20790 PLAY B1F$,A2L$,AR$ ,C4L$,C4R$,C4C$,SS1$,P6$
20800 PLAY B1F$,A2E$,AF$ ,C4L$,C4R$,C4C$,SS1$,P6$    ,BP1$
20810 PLAY B1$ ,AL$ ,A2R$,C4L$,C4R$,C4C$,S1$ ,P6$,Q6$
20820 PLAY B1E$,AE$ ,A2F$,C4E$,C4F$,C4G$,S1$ ,P6$,Q6$,BP2$
20830 '
20840 PLAY B2$ ,A3L$,A3R$,C2L$,C2R$,C2C$,P1$,P2$,P3$,P4$
20850 PLAY B2E$,A3E$,A3F$,C2E$,C2F$,C2G$,P1$,Q2$,P3$,P4$
20860 PLAY B2$ ,A3L$,A3R$,C2L$,C2R$,C2C$,P1$,P2$,P3$,P4$,P6$
20870 PLAY B2E$,A3G$,A3H$,C2H$,C2I$,C2J$,P1$,R2$,P3$,P4$,P6$,BP3$
20880 PLAY B3$ ,C3L$,C3R$,C3C$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
20890 PLAY B3E$,C3E$,C3F$,C3G$,A1E$,A1F$,P1$,Q2$,P3$,P4$,P6$
20900 PLAY B3$ ,C3L$,C3R$,C3C$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
20910 PLAY B3E$,C3E$,C3F$,C3G$,A1E$,A1F$,P1$,R2$,P3$,P4$,P6$
20920 '
20930 PLAY     ,C5L$,C5R$,C5C$,E1$,,SS1$
20940 PLAY     ,C5L$,C5R$,C5C$,E1$,,SS1$,P6$,P3$
20950 PLAY     ,C5E$,C5F$,C5G$,E2$,,P5$ ,P6$,P3$,P4$,BP1$
20960 PLAY     ,C5H$,C5I$,C5J$,E2$,,S5$ ,S6$,S3$,S4$,BP1$
20970 PLAY B6$ ,C5L$,C5R$,C5C$,E1$,,P7$,P5$,P2$,P3$,P6$,P4$
20980 PLAY B6$ ,C5L$,C5R$,C5C$,E1$,,P7$,P5$,Q2$,P3$,P6$,P4$
20990 PLAY B6E$,C5E$,C5F$,C5G$,E2$,,P7$,P5$,P2$,P3$,P6$,P4$
21000 PLAY B6E$,C5H$,C5I$,C5J$,E2$,,S7$,S5$,S2$,S3$,P6$,S4$
21010 PLAY B6$ ,C5L$,C5R$,C5C$,A4L$,A4R$ ,P7$,P5$,P2$,P3$,P6$,P4$
21020 PLAY B6$ ,C5L$,C5R$,C5C$,A4E$,A4F$ ,P7$,P5$,Q2$,P3$,P6$,P4$
21030 PLAY B6E$,C5E$,C5F$,C5G$,A4L$,A4R$ ,P7$,P5$,P2$,P3$,P6$,P4$
21040 PLAY B6E$,C5H$,C5I$,C5J$,A4E$,A4F$ ,P7$,S5$,R2$,S3$,P6$,P4$
21050 PLAY C5L$,C5R$,C5C$,A4L$,A4R$,E1$ ,P5$,P2$,Q3$,P4$,DP1L$,DP1R$
21060 PLAY C5L$,C5R$,C5C$,A4E$,A4F$,E1$ ,P5$,Q2$,Q3$,P4$,DP1E$,DP1F$
21070 PLAY C5E$,C5F$,C5G$,A4L$,A4R$,E2$ ,P5$,P2$,Q3$,P4$,DP1L$,DP1R$
21080 PLAY C5H$,C5I$,C5J$,A4E$,A4F$,E2$ ,S5$,R2$,S3$,S4$,DP1E$,DP1F$
21090 '
21100 PLAY C5L$,C5R$,C5C$,E3L$,E3R$,B8$  ,SS1$,P3$,P4$
21110 PLAY C5L$,C5R$,C5C$,E3E$,E3F$,B8$  ,SS1$,P3$,P4$
21120 PLAY C5E$,C5F$,C5G$,E4L$,E4R$,B8E$ ,P7$ ,P3$,P4$
21130 PLAY C5H$,C5I$,C5J$,E4E$,E4F$,B8F$ ,P7$ ,P3$,P4$
21140 PLAY C5L$,C5R$,C5C$,E5L$,E5R$,B7$  ,P7$,P2$,P3$,P4$
21150 PLAY C5E$,C5F$,C5G$,E5E$,E5F$,B7E$ ,P7$,P2$,P3$,P4$
21160 PLAY C5L$,C5R$,C5C$,E5L$,E5R$,B7$  ,P7$,P2$,P3$,P4$
21170 PLAY C5H$,C5I$,C5J$,E5G$,E5H$,B7E$ ,S7$,P2$,P3$,P4$
21180 PLAY C6L$,C6R$,C6C$,E6L$,E6R$,B7F$
21190 RETURN
21200 '
21210 '
21220 *S_67
21230 'COSMIC SCAPE JAZZ  [ unCOMPLETE ]
21240 '
21250 AL$="@89V2O3L8" : AR$=AL$+"["
21260 A1L$=AL$+" A1G1"
21270 A1R$=AR$+" E1C1"
21280 A1E$=AL$+" A1G2A2"
21290 A1F$=AR$+" E1C2D2"
21300 A1G$=AL$+" A1 RRRR RRB4"
21310 A1H$=AR$+" E1 RRRR RRE4"
21320 A2L$=AL$+" C1&C1 "
21330 A2R$=AR$+"<A1&A1 "
21340 A2E$=AL$+"<B1&B1 "
21350 A2F$=AR$+"<G1&G1 "
21360 '
21370 CL$="@32V8O4L16Q8" : CR$=CL$+"V2R5"
21380 C1L$=CL$+"D#32E32&E8D8&DER<A2> D#32E32&E8D8&D GR<G2 "
21390 C1R$=CR$+"D#32E32&E8D8&DER<A2> D#32E32&E8D8&D GR<G4 "
21400 C1E$=CL$+"D#32E32&E8D8&DER<A2> D#32E32&E8D8&D ER G#32A32GRERD8C "
21410 C1F$=CR$+"D#32E32&E8D8&DER<A2> D#32E32&E8D8&D ER G#32A32GRER90  "
21420 C2L$=CL$+"(D#32ER32)D8E<A4&A8&A>D8 (D#32ER32)D8E<G8GG8>C8D8"
21430 C2R$=CR$+"(D#32ER32)D8E<A4&A8&A>D8 (D#32ER32)D8E<G8GG8>C90 "
21440 C2E$=CL$+"(D#32ER32)D8E<A8AA8>C8D8 (D#32ER32)D8E ARGED#RDC<A"
21450 C2F$=CR$+"(D#32ER32)D8E<A8AA8>C8D8 (D#32ER32)D8E ARGED#R90  "
21460 C3L$=CL$+"CRDD#32ER32GRARE>D#32ER32GRARED#DC8<DRG8EE8G8A8 "
21470 C3R$=CR$+"CRDD#32ER32GRARE>D#32ER32GRARED#DC8<DRG8EE8G90  "
21480 C3E$=CL$+"(D#32E32D)R>A<RERD#32E32DR>A<RGE D#32E32DR<A4D#EGA8>C8D8"
21490 C3F$=CR$+"(D#32E32D)R>A<RERD#32E32DR>A<RGE D#32E32DR<A4D#EGA8>C90 "
21500 C3G$=CL$+"<[[[A1&A1"
21510 C3H$=CR$+"<[[[A1&A2&A4&A90"
21520 C4L$=CL$+"@94Q2%L1 (RRA)4RR>>A<<R %R1RRARR>>A<E<RARRARR>AR Q8"
21530 C4R$=CR$+"@94Q2%R1 (RRA)4RR>>A<<R %L1RRARR>>A<E<RARRA90    Q8"
21540 C4E$=CL$+"@94Q2%L1 RRARRARRARRARRAR %R1RRAARR>>A<<RRAREAR%C> Q8 AB "
21550 C4F$=CR$+"@94Q2%R1 RRARRARRARRARRAR %L1RRAARR>>A<<RRAREA90   Q8    "
21560 CL$="@94V10O5L16Q8" : CR$=CL$+"V3R5"
21570 C5L$=CL$+">C1DRDRCRC<BRAG#32G32R F#RGR "
21580 C5R$=CR$+">C1DRDRCRC<BRAG#32G32R F#90  "
21590 C5E$=CL$+" G1E8&EF#8&F#G8&GF#8&F#>DRDR"
21600 C5F$=CR$+" G1E8&EF#8&F#G8&GF#8&F#>D90 "
21610 C6L$=CL$+" B>C<BRARGAREF#RGRAR L24(F#RF#R[)4]]]F#RF#RG12A12"
21620 C6R$=CR$+" B>C<BRARGAREF#RGRAR L24(F#RF#R[)4]]]F#RF#R90    "
21630 C6E$=CL$+" G8&GA8&AB8&B>C8&CD8E8 F#8&F#G8&GF#&F#8E8&ED8<A8 "
21640 C6F$=CR$+" G8&GA8&AB8&B>C8&CD8E8 F#8&F#G8&GF#&F#8E8&ED90   "
21650 C7L$=CL$+" B1"
21660 C7R$=CR$+" B1"
21670 E1$ ="@5V5O4L16  AERA>A<AE>>E<<EGAR>E<EAB AE8A>A<AE>A<EGARERER"
21680 E1L$="@5V5O4L16  %L1AERA>A<AE>>E<<EGAR>E<EAB %R1AE8A>A<AE>A<EGARERER"
21690 E1R$="@5V1O4L16R5%R1AERA>A<AE>>E<<EGAR>E<EAB %L1AE8A>A<AE>A<EGARE90 "
21700 E2$= "@80V2O6L16    (ACRG>A<RE>G<ADRGAGR>E<) Q8"
21710 E3L$="@71V8O4L16   RRAERGDERERRERDE  RR>E<AR>C<GRADR<A>CRER"
21720 E3R$="@71V3O4L16R5 RRAERGDERERRERDE  RR>E<AR>C<GRADR<A>C90 "
21730 B1$= "@88V13O0L16Q5 ARARAA8ARGA8A8L24A12B L16>CRCRCC8D8DD8D8E8 Q8"
21740 B1E$="@88V13O0L16Q5 A&A8GRGA8&ADD8E8GG# A&A8GRGA8&A DD8E8G8 Q8"
21750 B1F$="@88V13O0L16Q5 A8&AAARE8&EGD8E8GG# A8&AAARE8&EGD8C8E8 Q8"
21760 B1G$="@88V13O0L16Q5 A8&AAARE8&EGD8E8GG# D2E2 Q8"
21770 B2$ ="@88V13O0L16Q5 GARA8EE8DRD8ERL24E12G L16GARA8EE8>ER<E8>DR<G8 Q8"
21780 '
21790 '
21800 P1$= "@1 V8 O0L16 (GRRRGRRR)3 GRRRGRGR"
21810 S1$= "@1 V8 O0L16 (GRRRGRRR)2 G"
21820 SS1$="@1 V8 O0L16  G"
21830 P2$= "@9 V12O2L12  RRRGRRRGRGRR RRRGRR RGR L24 GRR[[GRG"
21840 R2$= "@9 V12O2L12  RRRGRRRGRGRR RRRGRR L24 RRGGRR  RRGRRG "
21850 S2$= "@9 V12O2L12  RRRGRRRGRGRR "
21860 P3$= "@9 V7 O6L24 (FRRFRF FRRFRF)4"
21870 P4$= "@6 V4 O5L16 (RRCRRRCR)4"
21880 S4$= "@6 V4 O5L16 (RRCRRRCR) "
21890 Q4$= "@11V6 O1L16  R4F1 F2&F4"
21900 P5$= "@9 V7 O1L24  CRRCRRRRCRRRCRRCRRRRCRRC CRRCRRRRRCRCCRRRRCRRCCRR"
21910 S5$= "@9 V7 O1L24  CRRCRRRRCRRRCRRCRRRRCRRC C"
21920 BP1$="@1 V5 O0L16  R1 RRRRRRRRRRGRGRGR"
21930 BP2$="@1 V7 O5L24  R1 CRCCRR CRCRRC RRCCRR CRRCRR "
21940 '
21950 '
21960 '
21970 PLAY E1L$,E1R$,A1L$,A1R$,    ,E2$,   ,,P3$
21980 PLAY E1L$,E1R$,A1E$,A1F$,    ,E2$,   ,,P3$
21990 PLAY E1L$,E1R$,A1L$,A1R$,B1F$,E2$,P1$,,P3$,P4$
22000 PLAY E1L$,E1R$,A1G$,A1H$,B1G$,E2$,S1$,,P3$,P4$
22010 PLAY B1$,C1L$,C1R$,A1L$,A1R$,E1$,P1$,P2$,P3$,P4$
22020 PLAY B1$,C1E$,C1F$,A1E$,A1F$,E1$,P1$,R2$,P3$,P4$
22030 PLAY B1$,C1L$,C1R$,A1L$,A1R$,E1$,P1$,P2$,P3$,P4$
22040 PLAY B1$,C1E$,C1F$,A1E$,A1F$,E1$,P1$,R2$,P3$,P4$
22050 PLAY B1E$,E1L$,E1R$,C2L$,C2R$,,P1$,P2$,P3$,P4$
22060 PLAY B1E$,E1L$,E1R$,C2E$,C2F$,,P1$,R2$,P3$,P4$
22070 PLAY B1E$,E1L$,E1R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
22080 PLAY B1E$,E1L$,E1R$,C3E$,C3F$,,P1$,R2$,P3$,P4$
22090 '
22100 PLAY A2L$,A2R$,E3L$,E3R$,C3G$,C3H$,P5$,P2$,P3$,Q4$
22110 PLAY A2E$,A2F$,E3L$,E3R$,    ,    ,P5$,R2$,P3$,Q4$
22120 PLAY A2L$,A2R$,E3L$,E3R$,C4L$,C4R$,P5$,P2$,P3$,Q4$
22130 PLAY A2E$,A2F$,E3L$,E3R$,C4E$,C4F$,S5$,S2$,P3$,S4$,BP1$
22140 PLAY B2$,C5L$,C5R$,C4L$,C4R$,,P1$,P2$,P3$,P4$
22150 PLAY B2$,C5E$,C5F$,C4L$,C4R$,,P1$,R2$,P3$,P4$
22160 PLAY B2$,C6L$,C6R$,C4L$,C4R$,,P1$,P2$,P3$,P4$
22170 PLAY B2$,C6E$,C6F$,C4E$,C4F$,,P1$,R2$,P3$,P4$,BP2$
22180 '
22190 PLAY B2$,C7L$,C7R$,C4L$,C4R$,,P5$,P2$,P3$,Q4$
22200 PLAY B2$,CL$ ,CR$ ,C4L$,C4R$,,P5$,R2$,P3$,Q4$
22210 PLAY B2$,CL$ ,CR$ ,C4L$,C4R$,,P5$,P2$,P3$,Q4$
22220 PLAY B2$,CL$ ,CR$ ,C4L$,C4R$,,P5$,R2$,P3$,Q4$
22230 RETURN
22240 '
22250 '___________________________________________________________________________
22260 '===FC10===
22270 *S_68
22280 'JAZZY FOR VOYAGER
22290 '
22300 AL$="@39V6O4L16U100Q4%R5" : AR$=AL$+"U-50%L5"
22310 A1L$=AL$+"RRAR! RARR AR>E<RRRRR  ARRA R!RAR @44<A R>AR @39<AR>AR Q8"
22320 A1R$=AR$+"RRAR! RARR AR>E<RRRRR  ERRE R!RER @44<A R>AR @39<ER>ER Q8"
22330 A1E$=AL$+"RRAR! RARR AR>A<RR!RAR ARR!A RRAR  @44<A RE@45E G>G<G8 Q8"
22340 A1F$=AR$+"RRAR! RARR AR>A<RR!RAR ERR!E RRER  @44<A RE@45E G>G<G8 Q8"
22350 A1G$=AL$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
22360 A1H$=AR$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
22370 A2L$=AL$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
22380 A2R$=AR$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
22390 A2E$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>ER<E8[)3"
22400 A2F$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>ER<E8[)3"
22410 A2C$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>GR<G8[)3"
22420 A2D$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>GR<G8[)3"
22430 A2G$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
22440 A2H$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
22450 A2I$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR Q8"
22460 A2J$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR Q8"
22470 A3L$=AL$+"@44U100Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
22480 A3R$=AR$+"@44U-50Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
22490 A3E$=AL$+"@44U100Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
22500 A3F$=AR$+"@44U-50Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
22510 '
22520 C$="@86V9O3L16Q3"
22530 C11$=C$+" GRRRGRRRGRGRRR  ERRRERERRRERRRER FR Q8"
22540 C12$=C$+" ERRRERRRERERRR  CRRRCRCRRRCRRRCR DR Q8"
22550 C13$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
22560 C14$=C$+"<ARRRARRRARARRR  GRRRGRGRRRGRRRGR ER Q8"
22570 C15$=C$+" GRRRGRRRGRGRRR  ERRRERERRRERRRER DR Q8"
22580 C16$=C$+" ERRRERRRERERRR  CRRRCRCRRRCRRRCR<BR Q8"
22590 C17$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
22600 C18$=C$+"<ARRRARRRARARRR  GRRRGRGRRRGRRRGR ER Q8"
22610 C21$=C$+" ERRRERRRERERRR  DRRRDRQ8[[D4CRRRBRRR"
22620 C22$=C$+" CRRRCRRRCRCRRR <BRRRBRQ8[[B4ARRRBRRR"
22630 C23$=C$+"<ARRRARRRARARRR  GRRRGRQ8[[G4GRRRGRRR"
22640 C24$=C$+"<FRRRFRRRFRFRRR  ERRRERQ8[[E4ERRRERRR"
22650 C25$=C$+" ERRRERRRERERRR  ERRRERERRRERRRERFR Q8"
22660 C26$=C$+" CRRRCRRRCRCRRR  CRRRCRCRRRCRRRCRDR Q8"
22670 C27$=C$+"<ARRRARRRARARRR  BRRRBRBRRRBRRRBRBR Q8"
22680 C28$=C$+"<FRRRFRRRFRFRRR  GRRRGRGRRRGRRRGRGR Q8"
22690 C31$=C$+" [[E"
22700 C32$=C$+" [[C"
22710 C33$=C$+"<[[A"
22720 C34$=C$+"<[[F"
22730 C3L$="(@45V6O2L16Q4U100 RE8G8&GGRRRGR @44U100ARRR)"
22740 C3R$="(@45V6O2L16Q4U-50 RE8G8&GGRRRGR @44U-50ARRR)"
22750 C4L$="@45V6O2L16Q4U100 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
22760 C4R$="@45V6O2L16Q4U-50 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
22770 C4E$="@111V7O3L16Q2U100  ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARAR Q8"
22780 C4F$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARA  Q8"
22790 C4G$="@111V7O3L16Q2U100  ARRARRAR RAR<A>ARAE A Q8"
22800 C4H$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE A Q8"
22810 E1$ ="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8>DE<G>G<A>A 8<EGR A8>A8"
22820 E1E$="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8RR R4R2 "
22830 E2$ ="@58V6O3L16Q1 (R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR)Q8%C"
22840 E2E$="@58V6O3L16Q1  R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR Q8%C"
22850 B1$= "@10V8O2L16 ARRRE4]D#R[E8F#8GR ARRRE8&EG#]D#R[E8F#8GR"
22860 B1E$="@77V8O1L16Q4 GRG8>G<Q8G8&GF#8>F#<EREA8 CRC#8CG8&GF#8>C<EREF#8"
22870 B1F$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RE8G8A8G8&GF#8&F#G8"
22880 B1G$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RR8R8R8R4 G#RG#R"
22890 '
22900 P1$= "@6 V13O0L24 C4C4  C4C4          CRRRRRCRRRRR  CRRRRRCRRRRR "
22910 S1$= "@6 V13O0L24 C4C4  C4C4          CRRRRRRRRRRR  RRRRRRRRRRRR "
22920 Q1$= "@9 V7 O1L16 CRRCRRCR RRCRRRRC32C32 CRCRRRCR RRCRRRCR"
22930 P2$= "@12V10O4L24 R4C4  R4C4          RRRRRRCRRRRC  RRRRRRC8V4CRC"
22940 Q2$= "@12V10O4L24 R4C4  R4C4          RRRRRRCRRRRR  RRCRRRC8V4CRC"
22950 S2$= "@12V10O4L24 R4C4  R4C4          "
22960 P3$= "@6 V3 O7L24 (RRRRRC)3 R4        RRRRRCRRRRRC  RCRRRCRRRRRR"
22970 S3$= "@6 V3 O7L24 (RRRRRC)3 R4        "
22980 P4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG RRGRRERRRGR>C RRG<GRRCRRGRR"
22990 S4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG "
23000 P5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR  RRBRRBRR RBRRBRBR"
23010 Q5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR  RBBRRBRB RBBRBRBR"
23020 P6$= "@8 V3 O5L16 RRCRCRCR  RRCRRCRR  CRRRCRCR  RCR<<G>>RRCR"
23030 BP1$="@1 V7 O5L24 R1 R2RRR%R9CR%L9C %C@8]]<G4"
23040 BP2$="@7 V3 O4L16 <G>GR<C>CR<D>D <G"
23050 SP1$="@11V5 O2L16 %R5C4%L5C4 R2 R2@12O6[[ %L5C4%R5C4"
23060 '
23070 '
23080 PLAY C11$,C12$,C13$,C14$
23090 PLAY C11$,C12$,C13$,C14$
23100 PLAY C11$,C12$,C13$,C14$
23110 PLAY C15$,C16$,C17$,C18$
23120 PLAY C25$,C26$,C27$,C28$,,,P2$,P3$
23130 PLAY C25$,C26$,C27$,C28$,,,Q2$,P3$
23140 PLAY C21$,C22$,C23$,C24$,,,P2$,P3$,P4$
23150 PLAY C25$,C26$,C27$,C28$,,,S2$,S3$,S4$
23160 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$
23170 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$
23180 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$
23190 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,S4$
23200 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
23210 PLAY B1$,E1$,C3L$,C3R$,A1E$,A1F$,P1$,Q2$,P3$,P4$
23220 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
23230 PLAY B1$,E1$,C3L$,C3R$,A1G$,A1H$,S1$,S2$,S3$,S4$
23240 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
23250 PLAY B1$,E2$,C4E$,C4F$,A3E$,A3F$,P1$,P4$
23260 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
23270 PLAY B1$,E2$,C4G$,C4H$,A3E$,A3F$,S1$,S4$,BP1$
23280 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
23290 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
23300 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
23310 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
23320 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
23330 PLAY B1F$,E1$ ,C4L$,C4R$,A2C$,A2D$,Q1$,Q2$,P3$,Q5$,P6$
23340 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
23350 PLAY B1G$,E1E$,C4L$,C4R$,A2C$,A2D$,Q1$,S2$,S3$,Q5$,P6$
23360 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
23370 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
23380 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
23390 PLAY ,E1$ ,C4G$,C4H$,A2I$,A2J$,S3$,S4$,P6$
23400 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
23410 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
23420 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
23430 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
23440 PLAY ,    ,,,A2G$,A2H$,P1$,   ,   ,P4$,P6$,SP1$
23450 PLAY ,    ,,,A2G$,A2H$,P1$,   ,   ,P4$,P6$
23460 PLAY ,    ,,,A2G$,A2H$,P1$,P2$,P3$,P4$,P6$,SP1$
23470 PLAY ,    ,,,A2I$,A2J$,S1$,S2$,S3$,S4$,   ,BP2$
23480 '
23490 PLAY C11$,C12$,C13$,C14$
23500 PLAY C15$,C16$,C17$,C18$,,,   ,   ,P3$,P4$
23510 PLAY C21$,C22$,C23$,C24$,,,P1$,P2$,P3$,P4$,P6$
23520 PLAY C25$,C26$,C27$,C28$,,,S1$,S2$,S3$,S4$,P6$
23530 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
23540 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$,P6$
23550 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
23560 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,P4$,P6$
23570 PLAY C25$,C26$,C27$,C28$,,,P4$,P6$
23580 PLAY C25$,C26$,C27$,C28$,,,P4$
23590 PLAY C21$,C22$,C23$,C24$
23600 PLAY C31$,C32$,C33$,C34$
23610 RETURN
23620 '
23630 '
23640 *S_69
23650 'KINKY LOVE CHILD
23660 '
23670 AL$="@20V8O3L16" : AR$=AL$+"V7"
23680 A1L$=AL$+"D#32E4&E32&EF4G4A8G2 F8E8 D8 E8"
23690 A1R$=AR$+"R 32C4&C32&CD4E4F8E2 D8C8<B8>C8"
23700 A1E$=AL$+" D4&D8C8&C2<B4&B8>C8&C4D4"
23710 A1F$=AR$+"<B4&B8A8&A2 G4&G8 A8&A4B4"
23720 A2L$=AL$+"D#32E4&E32&EF4G4A8G2 >C8<B8A8B8"
23730 A2R$=AR$+"R 32C4&C32&CD4E4F8E2  A8 G8E8G8"
23740 A2E$=AL$+">C4<G8A4G#8G8F8 D#32E32FEF E4R4 <G4 "
23750 A2F$=AR$+" G4 E8F4F8 E8D8 CDCD       C4R4 <E4 "
23760 A3L$=AL$+" C1 E4&E8 D4&D8 E4"
23770 A3R$=AR$+"<G1>C4&C8<B4&B8>C4"
23780 A3E$=AL$+" D4&D8C2&C8 <B4&B8>C4&C8D4"
23790 A3F$=AR$+"<B4&B8A2&A8  G4&G8 A4&A8B4"
23800 A4L$=AL$+" E2&E8 D#8D8C8  E2&E8F8G8G#8"
23810 A4R$=AR$+" C2&C8&C8<B8A8 >C2&C8D8E4   "
23820 A4E$=AL$+" A8G8F8E4 D8C8<B8>C2 R8 C8 E8G8"
23830 A4F$=AR$+" F8E8D8C4<B8A8 G8 G2 R8 G8>C8E8"
23840 A5L$=AL$+" A4B8>C4&C8<B8>C8D8C8<B8A4 F8G8A8"
23850 A5R$=AR$+" F4G8 A4&A8 G8 A8B8A8 G8F4 D8E8F8"
23860 A5E$=AL$+" G4&G8 A4&A8B4 B8>C8<B8A4&A8E8G8"
23870 A5F$=AR$+" E4&E8 F4&F8G4 G8 A8 G8E4&E8C8E8"
23880 A6L$=AL$+" A4&A8>D#32E32&E4&E8R E8 D8C4<B4&B8A4"
23890 A6R$=AR$+" E4&E8>CRRCRRCR       C8<B8A4 G4&G8E4"
23900 A6E$=AL$+" G4&G8E4&E8G4 G#2 >E4D4<"
23910 A6F$=AR$+" D4&D8C4&C8D4 E2  >C4<B4"
23920 A7L$=AL$+">C2<A8B>C8&CD8<B8GRGREG&G4 >ER D8"
23930 A7R$=AR$+" A2 F8G A8&AB8 G8EREDCE&E4 >CR<B8"
23940 A7E$=AL$+">C2<A8B>C8&CD8<B2>       E4 D4"
23950 A7F$=AR$+" A2 F8G A8&AB8 GGRGRGG8 >C4<B4"
23960 A7G$=AL$+">C2<A8B>C8&CD8 E2&E8 D#8D8<G8"
23970 A7H$=AR$+" A2 F8G A8&AB8>C2&C8<B8 B8 E8"
23980 '
23990 DL$="@114V8O5L16" : DR$=DL$+"V3"
24000 D1L$=DL$+"V4 RRCRRCRRCRRCCRCD  RREREEREREER D4"
24010 D1R$=DR$+"V3<RRGRRGRRGRRGGRGB >RRCRCCRCRCCR<B4"
24020 D1E$=DL$+"V4 RRCRRCRRCRRCCRCD <RRGRGGRGRGGR B4"
24030 D1F$=DR$+"V3<RRGRRGRRGRRGGRGB  RRDRDDRDRDDR G4"
24040 D2L$=DL$+"  <ARARGARA RARARAEG ARARGARA> C8<A>D8<A>E8< "
24050 D2R$=DR$+"R8<ARARGARA RARARAEG ARARGARA> C8<A>D8<A     "
24060 D2E$=DL$+"   D#32ER32DC8<A>C4 <G8A8>CD D#32ER32 DC8<A>C8 E4D4 "
24070 D2F$=DR$+"R8 D#32ER32DC8<A>C4 <G8A8>CD D#32ER32 DC8<A>C8 E4D8 "
24080 D2G$=DL$+"   D#32ER32DC8<A>C4 <G8A8>CD D#32ER32DC8<A>C8<<@20V5A4>D4"
24090 D2H$=DR$+"R8 D#32ER32DC8<A>C4 <G8A8>CD D#32ER32DC8<A>  <<@20V4E4 B4"
24100 D3L$=DL$+"V4  RRFRRFRRF RRFFRFR (F#R)3FF#RF#F#RF8F#8"
24110 D3R$=DR$+"V3  RRCRRCRRC RRCCRCR<(C#R)3CC#RC#C#RC8C#8"
24120 D3E$=DL$+"V4  RRGRRGRRG RRFG8GR  RRG#RRG#RRG# RRG#A#4"
24130 D3F$=DR$+"V3  RRDRRDRRD RRCD8DR  RRD#RRD#RRD# RRD#G 4"
24140 D3G$=DL$+"V4  E8G8B8>C8 &C2       <F8A8>C8D8 &D2        "
24150 D3H$=DR$+"V3  C8E8G8 A8 &A8B8A8G8  C8E8 G8B8 &B8<G8B8>D8"
24160 '
24170 CL$="@106V8O4L16Q3"
24180 C1$ =CL$+"  RRCR RCRR  CRRR RRDD# RRERDERD#ERRD# DR<ER  Q8"
24190 C1E$=CL$+"<(RRF)4RRAR  RRGR RGRR  GRR>F ERDR           Q8"
24200 C1F$=CL$+"< RRFR RFRR GRRG RRGR   RRCR RCRR CRER GRBR  Q8"
24210 C2$ =CL$+"  RRCR <F>CR<F> CR<FB32>C32 RDEF  RRGR RGRR GRRF ERD8  Q8"
24220 C2E$=CL$+"  RRCR FCRR CRRR RRRR  >RRCR RCRR CRRR <BRRB   Q8"
24230 C2F$=CL$+"< RRGD RGRR GRRG RRGR   Q8 V2 G#2>E4D4"
24240 C3L$=CL$+"Q8 D#32ERRR32 DRRRCRRR<ARGR G#32AR32GARAE8>D#32ERRR32ERRR"
24250 C3R$=CL$+"Q8 R32 CRRR32<BRRRARRR ERDR R32 ER32DEREC8 R32 CRRR32CRRR"
24260 C3E$=CL$+"Q8 D#32ERRR32 DRRRCRRR<ARGR G#32AR32GARAE8>]]] E4 D4"
24270 C3F$=CL$+"Q8 R32 CRRR32<BRRRARRR ERDR R32 ER32DEREC8 ]]] C4<B4"
24280 C4L$=CL$+"Q6@20V7  E2<A8&A>C8&CD8  E2          < A8&A>C8&CD8"
24290 C4R$=CL$+"Q7@20V6  C2<F8&F A8&AB8 >C2          < F8&F A8&AB8"
24300 C4E$=CL$+"Q6@20V7  E2G8&GF8&FF8 D#8 D CR C C R R<A#>CR D4  "
24310 C4F$=CL$+"Q7@20V6  C2E8&ED8&DD8 C8 <A#G#RG#G#R R R  G#RA#8 "
24320 C4G$=CL$+"Q6@20V7  E8F8G8F8&FE32F32 E8 D8C8 <A8B8>C8D4 E8F8G8"
24330 C4H$=CL$+"Q7@20V6  C8D8E8D8&DC32D32 C8<B8A8  F8G8 A8B4>C8D8E8"
24340 C4I$=CL$+"Q6@20V7  B8>C8<G8F8&FG32F32 E8 D8C8 <A8B8>C8D4 <G8>D8<B8"
24350 C4J$=CL$+"Q7@20V6  G8 A8 E8D8&DE32D32 C8<B8A8  F8G8 A8B4  E8 B8 G8"
24360 C5L$=CL$+"Q8@20V6  C1D1"
24370 C5R$=CL$+"Q8@20V5 <G1B1"
24380 C5E$=CL$+"Q8@20V6  E2F8&FE8&E D8  E2&E4               D4 "
24390 C5F$=CL$+"Q8@20V5  C2D8&DC8&C<B8 >C8>E<C8>D<C8>C<E<A8 B4 "
24400 C5G$=CL$+"Q8@20V6  C1          E4&E8 D4&D8C4"
24410 C5H$=CL$+"Q8@20V5 <A2&A4>GRGR  C4&C8<B4&B8A4"
24420 C5I$=CL$+"Q6@20V8  D8    C8<B8AG8FE8D8C8 D2E8&EF8&FG8 Q8"
24430 C5J$=CL$+"Q7@20V6 <B8R>V3C8<B8AG8FE8D8C8 D2E8&EF8&FG  Q8"
24440 E1L$="@101V8O3L16  >C1<F1"
24450 E1R$="@101V7O3L16   G1 C1"
24460 E1E$="@101V8O3L16   G2F2>C1"
24470 E1F$="@101V2O3L16   D2C2 G1"
24480 '
24490 B1$= "@28V8O3L16  C4C&C8CRC<E8F8G12D24  E4E&E8ERDE8F8G8"
24500 B1E$="@28V9O3L16 <FCF8EF8F8FF8G8A8      GD8E8F8F# GRRA A#8B8"
24510 B1F$="@28V9O3L16 <FCF8EF8FGGRG8FG8     >CCRCR<B>CRC "
24520 B2$ ="@28V9O3L16 <FRRFRRCRFRRRRRD#E     FRRFRRFRFRR<B>C8D8"
24530 B2E$="@28V9O3L16 <ERRERRERERRRRREG      A2G4D8E8"
24540 B2F$="@28V9O3L16 <G8G8DG8G8FG8F8G8      G#2D4E4"
24550 B3$ ="@28V8O3L16  C8<EF8G8EARARGA8A     FCF8DE8FGRRRRRRR"
24560 B4$ ="@28V9O3L16 <GB>CRRCRRCRRRRRER  <G#B>E8DER<EREG#8B8>E8"
24570 B4E$="@28V9O3L16 <CFRFRFFRF8DG8&GA8    GGRG8FGR GRRR D4 "
24580 B5$ ="@28V9O3L16 <F8RFA4RAF8A8FD       E8RE G8G#E A4G4"
24590 B5E$="@28V9O3L16 <F8RFA4RAF8>C<ARD     E8RE G8G#8 D4E4"
24600 B5F$="@28V9O3L16 <F8RFA4RAF8>C<ARD     F#2FGRGF8G8"
24610 B6$ ="@28V9O3L16 <ARA8AGRERERED8E8     ARA8AGRERE>C8<D8EG"
24620 B6E$="@28V9O3L16  D8&DDRCDRRDD8C8DC    D8&DDRCDRE4D8E8"
24630 B7$ ="@28V9O3L16 <EFRFRFF8>C8<FB8FA#8  F#8&F#F#RFF#RF#ARF#D8F#8"
24640 B7E$="@28V9O3L16 <GRRGRFG8>D8&DC8<GB8  G#RRG#RGG#8RG#G#8A#4"
24650 B8$ ="@28V8O3L16  C4<GRA4E8F8GF#       F8>C8<BRG4G8D8G8"
24660 B8E$="@28V8O3L16  CRRC8&CCRCRRR<G4     FRRF8&FFRFRRF#G8B8"
24670 B8F$="@28V8O3L16 <GRRG8&GGRF8&FE8&ED8  CRRC8&CCRCRRRE4"
24680 B8G$="@28V9O3L16 <A8EARA8ARARAG8GF#    F&F8FRFRFREF8D8E8"
24690 B8H$="@28V9O3L16 <G2&G8D4E8 GRRRG&G8GRFG8D8G8"
24700 B9$ ="@96V7O2L16  C2&C4<]G4] E2&E4F8G8"
24710 B9E$="@96V8O2L16 <F2&F4A4 G2&G8 @28[[ >BRBRB8"
24720 '
24730 P1$= "@9V11O1L24 CRRRRRRRRRRC CRRCRRRRRCRR CRRRRRRRRRRC CRRCRRRRCRRC"
24740 S1$= "@9V11O1L24 CRRRRRRRRRRC CRRCRRRRRCRR CRRRRRRRRRRR RRRRRRRRRRRR"
24750 P2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRR RRRRRRGRRRRR RRGRRRGRRRRR"
24760 Q2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRG RRRRRRGRRRRR RRRGRRGRGRRG"
24770 R2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRG RRRGRRGRGRRG RRGGRRGRRGRR"
24780 P3$= "@2V4 O7L24 (FRRFRF)3 FRRFRA48F48     (FRRFRF)4 "
24790 P4$= "@6V2 O5L16 ((RRCR))4"
24800 P5$= "@1V7 O0L16 (GRRRGRRR)4"
24810 S5$= "@1V7 O0L16 (GRRRGRRR)G"
24820 SS5$="@1V6 O0L16 GRRRRRRR RRRRRRRR RRRRRRRR RRRRRRRR"
24830 P6$= "@2V7 O1L16 CRRCRRRC CRCRRRRC CRRCRRRC RCCRRRCR"
24840 Q6$= "@2V7 O1L16 CRRCRRRC CRCRRRRC CRRCRRRC RCCRRRCC32C32"
24850 BP1$="@1V5 O0L16  R1R2 RRCR CRCR"
24860 BP2$="@1V5 O0L16 R1 R2 GRGRGRGR"
24870 '
24880 '
24890 PLAY B1$ ,A1L$,A1R$,,,,   ,P2$,P3$
24900 PLAY B1E$,A1E$,A1F$,,,,   ,P2$,P3$
24910 PLAY B1$ ,A2L$,A2R$,,,,P1$,P2$,P3$
24920 PLAY B1F$,A2E$,A2F$,,,,S1$,Q2$,P3$,BP2$
24930 *L_P
24940 PLAY B4$ ,A3L$,A3R$,C1$ ,,,P1$,P2$,P3$,,P5$
24950 PLAY B4E$,A3E$,A3F$,C1E$,,,P1$,Q2$,P3$,,P5$
24960 PLAY B4$ ,A4L$,A4R$,C1$ ,,,P1$,P2$,P3$,,P5$
24970 PLAY B1F$,A4E$,A4F$,C1F$,,,P1$,Q2$,P3$,,P5$
24980 PLAY B2$ ,A5L$,A5R$,C2$ ,,,P1$,P2$,P3$,,P5$
24990 PLAY B2E$,A5E$,A5F$,C2E$,,,P1$,Q2$,P3$,,P5$
25000 PLAY B2$ ,A6L$,A6R$,C2$ ,,,P1$,P2$,P3$,,P5$
25010 PLAY B2F$,A6E$,A6F$,C2F$,,,S1$,R2$,P3$,,S5$
25020 PLAY B5$ ,A7L$,A7R$,D1L$,D1R$,,P1$,P2$,P3$,P4$,P5$
25030 PLAY B5E$,A7E$,A7F$,D1E$,D1F$,,P1$,Q2$,P3$,P4$,P5$
25040 PLAY B5$ ,A7L$,A7R$,D1L$,D1R$,,P1$,P2$,P3$,P4$,P5$
25050 PLAY B5F$,A7G$,A7H$,D1E$,D1F$,,S1$,R2$,P3$,P4$,S5$,BP1$
25060 PLAY B6$ ,D2L$,D2R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
25070 PLAY B6E$,D2E$,D2F$,C3L$,C3R$,,P1$,P2$,P3$,P4$
25080 PLAY B6$ ,D2L$,D2R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
25090 PLAY B6E$,D2G$,D2H$,C3E$,C3F$,,S1$,Q2$,P3$,P4$,BP1$
25100 PLAY B7$ ,D3L$,D3R$,C4L$,C4R$,,P5$ ,P2$,P3$,P4$
25110 PLAY B7E$,D3E$,D3F$,C4E$,C4F$,,P5$ ,P2$,P3$,P4$
25120 PLAY B8$ ,D3G$,D3H$,C4G$,C4H$,,SS5$,P2$,P3$,P4$
25130 PLAY B8$ ,D3G$,D3H$,C4I$,C4J$,,SS5$,P2$,P3$,P4$
25140 PLAY B8E$,C5L$,C5R$,,,,P6$,P2$,P3$
25150 PLAY B8F$,C5E$,C5F$,,,,Q6$,P2$,P3$
25160 PLAY B8G$,C5G$,C5H$,,,,P6$,P2$,P3$,P4$
25170 PLAY B8H$,C5I$,C5J$,,,,Q6$,R2$,P3$,P4$
25180 PLAY B9$ ,A1L$,A1R$,,,,SS5$
25190 PLAY B9E$,A1E$,A1F$
25200 PLAY B1$ ,A2L$,A2R$,,,,P1$,P2$,P3$,SS5$
25210 PLAY B1F$,A2E$,A2F$,,,,P1$,Q2$,P3$,P5$    : IF NOT A_PLAY THEN GOTO *L_P
25220 RETURN ' ← DUMMY. [PF1] で戻る(通常ﾓｰﾄﾞ時)
25230 '
25240 '
25250 *S_71
25260 'TRUMP
25270 '
25280 AL$="@25V9O5L16Q1" : AR$=AL$+"V8" : AC$=AL$+"V2"
25290 A1L$=AL$+"R4    Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C <R4Q8D4 "
25300 A1R$=AR$+"R4   <Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1A <R4Q8B4 "
25310 A1C$=AC$+"R4R8  Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C<<R8Q8F4 "
25320 A1E$=AL$+"R4    Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1CQ2RC32C#32D FRRF"
25330 A1F$=AR$+"R4   <Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1AQ2RA32A#32B>CRRC"
25340 A1G$=AC$+"R4R8  Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1CQ4RC32C#32D FR  "
25350 A1H$=AL$+"   <RRBR> Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C <R4Q8D4 "
25360 A1I$=AR$+"   <RRGR  Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1A <R4Q8B4 "
25370 A1J$=AC$+"R8 <RRBR> Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C<<R8Q8F4 "
25380 A2L$=AL$+"Q8  <E1   >  Q4EF8F#32G32RFE DRRCR<BR>C#32D32R"
25390 A2R$=AR$+"Q8  <C1   >  Q4CR8E      RDC<BRRAR GR BR      "
25400 A2C$=AC$+"Q8 <<A1&A8>>   EF8F#32G32RFE DRRCR<]]]]GR     "
25410 A2E$=AL$+"Q4  <B>CR<ABRGARFGRE RF>E<   DRBDR>C<DR>E D<D8 G#8 A8"
25420 A2F$=AR$+"Q4  <G RR ERFEFRDCDCC#D>C<   RRGRR A RB>C<B<B8>D#8 E8"
25430 A2G$=AC$+"Q8R8<B>CR<ABRGARFGRE RF>E<]]]]]ERR F RR A G<G8 G#8 A8"
25440 A2H$=AL$+"Q4  <GAR>CRDRD#32E32R EER EEEE (GRE)4 G#32A32GF#E"
25450 A2I$=AR$+"Q4  <RER GRAB>CR      CRD#CRCC (ERC)4     E8C#C  "
25460 A2J$=AC$+"Q8<R8GAR>CRDRD#32E32R EER EEEE (GRE)4 G#32A32G   "
25470 A2K$=AL$+"Q4   DRDR>C<<ARB32>C32RDDR<GG#AB >ARD# DRCR<AREG8G#R>D8"
25480 A2M$=AR$+"Q4  <BRBR>G< ERG32 A32RBBR<GG#AB >ERC  ARGR ERCD8D#R A8"
25490 A2N$=AC$+"Q8R8 DRDR>C<<ARB32>C32RDDR<GG#AB >ARD# DRCR<AREG8]]]]F8"
25500 A2O$=AL$+"Q4  DRDR>C<<ARB32>C32RDDR<GG#AB>ARD#DRCR<ARGE8>CRC8  <A1"
25510 A2P$=AR$+"Q4 <BRBR>G< ERG32 A32RBBR<GG#AB>ERC ARGR EREC8 GRG8   E1"
25520 A2Q$=AC$+"Q8R8DRDR>C<<ARB32>C32RDDR<GG#AB>ARD#DRCR<ARGE8>CR]]]]<C1"
25530 A3L$=AL$+"Q1    <<RRAR Q4> C8&CD &D2 [[[Q1 G#32A32ARAARAARAARARB8"
25540 A3R$=AR$+"Q1    <<RRFR Q4  A8&AB &B2 [[[Q1>    R  FRRFRFFRFFRFRG8"
25550 A3C$=AC$+"Q1]]] <<ARCR Q4  F8&FG &G2 [[[Q1>    R  RRRCRRCRCCRCRE8"
25560 A3E$=AL$+"Q1    <<R RAR Q4>C8&CD &D2[[[Q1 G#32A32ARAARAARAARQ4<E8G8"
25570 A3F$=AR$+"Q1    <<R RFR Q4 A8&AB &B2[[[Q1>   R  FRRFRFFRFFRQ4<<C8E8"
25580 A3G$=AC$+"Q1]]] <<G#ACR Q4 F8&FG &G2[[[Q1>   R  RRRCRRCRCCRQ4<<A8>C8"
25590 A3H$=AL$+"Q1    <<R RRA Q4>C8&CD &D2 [[Q4  RARRB4>CRR<Q8B8&B Q4GR"
25600 A3I$=AR$+"Q1    <<R RRF Q4 A8&AB &B2 [[Q4> RERRG4 ARR Q8G8&G Q4DR"
25610 A3J$=AC$+"Q1]]] <<G#ARC Q4 F8&FG &G2 [[Q4> RCRRE4 ERR Q8E8&E<Q4BR"
25620 A3K$=AL$+"Q1    <<R RRA Q4>C8&CQ8D &D2  Q4[ <B4&B8>C4&C8D4"
25630 A3M$=AR$+"Q1    <<R RRF Q4 A8&AQ8B &B2  Q4[  G4&G8 A4&A8B4"
25640 A3N$=AC$+"Q1]]] <<G#ARC Q4 F8&FQ8G &G2  Q4[  E4&E8 F4&F8G4"
25650 A4L$=AL$+"Q8    <E1&E2     F4G4":A4E$=AL$+"Q8 <E1  F4&F8G4&G8A#4"
25660 A4R$=AR$+"Q8    <C1&C2     C4D4":A4F$=AR$+"Q8 <C#1 D4&D8E4&E8F4"
25670 A4C$=AC$+"Q8]]]<<A1&A2&A8[[F4G8":A4G$=AC$+"Q8]]<<A1&A8>F4&F8G4&G8A#8"
25680 A4H$=AL$+"Q8    <A2&A4      [[>CRRR]]    <A2G2 "
25690 A4I$=AR$+"Q8    <F2&F4      [[ ARRR]]     E2E2 "
25700 A4J$=AC$+"Q8]]] <D2&D4&D8[[[[[>CR  ]]]]] <C2C2 "
25710 A4K$=AL$+"Q8    <G4&G8A4&A8 D4  E8Q4D#ERFRGRG#RAA#8>C8"
25720 A4M$=AR$+"Q8    <D1             C8Q4R CRRRDRR REF8  G8"
25730 A4N$=AC$+"Q8]]]<<A#2[[>A4&A8D4  E8Q4D#ERFRGRG#RAA#8>  "
25740 CL$="@21V8O4L16Q5" : CR$=CL$+"V3"
25750 C1L$=CL$+"Q8  <B1>C1"
25760 C1R$=CR$+"Q8R8<B1>C2&C4&C8"
25770 C1E$=CL$+"Q8  D2&D4RRDR ED#RDCR<BARGFRERL32FGG#A"
25780 C1F$=CR$+"Q8R8D2&D4RRDR ED#RDCR<BARGFRER        "
25790 C1G$=CL$+"  (<B>CR)<A#32B32>CR<B>CR<B>CC#D FERCD<BR>CR<ABR>CR<B8"
25800 C1H$=CR$+"R8(<B>CR)<A#32B32>CR<B>CR<B>CC#D FERCD<BR>CR<ABR>CR  "
25810 C1I$=CL$+"   <EFGARBR>Q8C &C4&C8Q4< BR >DDRCCR<BBRAARGRFR"
25820 C1J$=CR$+"R8 <EFGARBR>Q8C &C4]]]Q4<<BR >DDRCCR<BB>C<AA>E<G>D<F>>E"
25830 C2L$=CL$+"Q8    DL64<C#C<BA#L16A8RR R2>>Q4DRDL64<C#C<BA#L16A8R2>>E8"
25840 C2R$=CR$+"Q8]]]<AL64<G#GF#F L16D8RR R2> Q4ARAL64<G#GF#F L16D8R2>>C8"
25850 C2E$=CL$+"Q8    DL64<C#C<BA#L16A8R4R2>>Q3ERR D#RRDRRCRR  AD#DC"
25860 C2F$=CR$+"Q8]]]<AL64<G#GF#F L16D8R4R2>>Q3CRR<B RRARRGRR  AD#DC"
25870 C3L$=CL$+"    G8&GA8G#32G32FD8DCD RDFRFGRGARABRB>CR<B>CC#D"
25880 C3R$=CR$+"R8  G8&GA8G#32G32FD8DCD RDFRFGRGARABRB>CR<B>C   "
25890 C3E$=CL$+"    >F8     CDRCDRCC#32D32RCDR A8RG# GFRCDR<B>CR<ABR >BR"
25900 C3F$=CR$+"]]] >D4[[[[ CDRCDRCC#32D32RCDR A8RG# GFRCDR<B>CR<A]]]>GR"
25910 C3G$=CL$+"    AG#GFRR<AG#GFRF>D8D8     FRDFRDE32F32RDFRD B8>C8"
25920 C3H$=CR$+"R8  AG#GFRR<AG#GF]]]A8A4[[[[>FRDFRDE32F32RDFRD B8   "
25930 C3I$=CL$+"Q8   [[ >D1        Q4 DDDDRDRDRDDR DDDD"
25940 C3J$=CR$+"Q8R8 [[ >D2&D4&D8  Q4<AAAARARAGAAG#AAAA"
25950 C4L$=CL$+"    F8GA8G#32G32FD8DC<GAR>CC# DG#32A32RCGR<A>FR<GA8>C8C#8"
25960 C4R$=CR$+"R8  F8GA8G#32G32FD8DC<GAR>CC# DG#32A32RCGR<A>FR<GA8>C8"
25970 C4E$=CL$+"    GRG8GARGR>C<A8>DR<D8 &D4 >DDRDRC<B8G8A8"
25980 C4F$=CR$+"R8  GRG8GARGR>C<A8>DR<D8 &D4 >DDRDRC<B8G8  "
25990 C4G$=CL$+"Q8   >DL64<C#C<BA# <L32AAB>C# > [[[ D2&D4 <B4&B8>C4&C8D4"
26000 C4H$=CR$+"Q8]]] AL64<G#GF#F  <L32EF#G#A#> [[[ A2&A4  G4&G8 A4&A8B4"
26010 C5L$=CL$+"Q2<    G>G<GGRGGRR>C<G8C#RL32 [[Q8D#EFF#  G4&G8F4&F8E4"
26020 C5R$=CR$+"Q2< E8 G>G<GGRGGRR>C<G8C#RL32 [[Q8D#EFF#  G4&G8F4&F8E8"
26030 C5E$=CL$+"[[<    C#4&C#8A4&A8G4 &G2A4G4"
26040 C5F$=CR$+"[[<<A8>C#4&C#8A4&A8G4 &G2A4G8"
26050 C5G$=CL$+"Q8<[[  F1E1"
26060 C5H$=CR$+"Q8<    D1C1"
26070 C5I$=CL$+"Q8<[[  D1  E2RGRR  <L32 GG#A>C EG"
26080 C5J$=CR$+"Q8<   <A#1>C2RERR  <L32 DD#E A>C8"
26090 '
26100 B$="@29V9O2L16Q5"
26110 B0$ =B$+"<R1 V6 D2&D8 F]F#]A>]DR]D"
26120 B0E$=B$+"Q2CQ5DRDRDF4DRC<A>D8 Q2CQ5DRDRDF4DR Q2>D<Q5CQ2>C<<Q8D"
26130 B0F$=B$+"Q2CQ5DRDRDF4DRC<G#AA#> Q2CQ5DRDRDF4 ARG8A8"
26140 B1$ =B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >CC#DFRGRF8D>Q2DQ5<DG8A8"
26150 B1E$=B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >CC#DF4  G#RF8>Q2G#Q5D<DGA"
26160 B1F$=B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >>C<<B8GA8FG8EF8]GQ2>D<Q8G#8"
26170 B2$ =B$+"D8&DDRQ8<GG#A>Q5CRC8>C<C<A>C  DRRDRQ8<F#G8G#8A8>B<B>>C<C"
26180 B2E$=B$+"Q3DD>Q5D8<C>C8<<B>B8<A>A<GFGG# AR>C8D<D>EG8AG#GFD<G#G "
26190 B2F$=B$+" D8CDRF8DRGRDG#A>CD< FRFRD#F8DD#8CD8<A#>D#8"
26200 B2G$=B$+" D8CDRF8DRGRDG#A>CD< FRFRD#F8DE8CDR<A>C8<A2"
26210 B3$ =B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 D8&DDDR<FG R>Q2AQ5C#C<G>G<A>A"
26220 B3E$=B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 C#DR<D>EDR<FGRAR>CDF8"
26230 B3F$=B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 [[G8FGRG>Q2GQ5<G8GAG]]]<FGG#A "
26240 B4$ =B$+"[ C8>Q2CQ5<CA#>C8C<C>Q2CQ5<A#>Q2CRCQ5<D#<A#>"
26250 B4$ =B4$+" C8>Q2CQ5<CA#>C8C<C>Q2CQ5<A#>Q2C<Q5CQ2GRG "
26260 B4E$=B$+"] C#8&C#C#<G#8&G#G#RF#F#8G#8B>CC#8&C#C#<G#8&G#G#FF#GG#RG#B8"
26270 B4F$=B$+"  DRG8D>D8<D>C8<DA32D32CDG8 CC#DEFRA>D8CR<DF8G8"
26280 B4G$=B$+"]<A#8&A#A#RAA#8A#RRRG8A8 >CRC8<A#>CRC8 Q3C#Q5C#8ERG8"
26290 '
26300 P1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC       CRCRRRRCRRCRRRCR  "
26310 Q1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC   @8V7GRGRRR>G<GRCG>RGR<GR"
26320 R1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC       RRCRRCRRCRRCRRCC"
26330 S1$= "@9V9 O1L16 CRRRRRRRRRRRRRRR       RRRRRRRRRRRRCRCC"
26340 P2$= "@9V14O2L16 RRRRGRRRRGRRGRRR       RRRRGRRRRGRR>GRV4GG"
26350 R2$= "@9V14O2L16 RRRRGRRRRGRRGRRR  @8V6 RGRRGRRGRRGRGRV2GG"
26360 P3$= "@9V5 O6L16 RRFRRFFRFRRRRFFR       RFRRRFFRCRRRRRRF  "
26370 Q3$= "@9V5 O6L16 RRFRRFFRFRRRRFA32F32F <F>FRRRFFRCRRRRRRF  "
26380 R3$= "@9V5 O6L16 RRFRRFFRFRRRRFA32F32F  FRRFRRFRRFRRFFFF"
26390 P4$= "@6V9 O8L16 RCRCRRRRRRRCRRCR       RCRCRRRRRRRCRRRC"
26400 P5$= "@3V7 O3L16 RCRC>C<CRCR<GGRGR>CR   GCRC<C>CRCR>CCRCRCR"
26410 P6$= "@8V6 O1L16 GRGRRGRGR>G<GRRG>[[G]]<R GRGRRR>G<GRCG>RGR<GR"
26420 Q6$= "@8V6 O1L16 GRGRRGRGR>G<GRRG>GR< GR>B<GR>G<G>GRG<G>RGR<GR"
26430 R6$= "@8V7 O1L16 GRGRRGRGR>G<GRRG>GR< GR>B32B32B<RRG>B<G>BRB<GG>CR"
26440 SS1$="@9V7 O1L16 CRRRCRRRCRRCCRCC"
26450 SS2$="@9V14O2L16 RRRRRRRRRRRRGRRR"
26460 SS3$="@11V6O3L16 ((C[[C[[CR]]]])4)"
26470 BP1$="@9V7 O1L16 R1R2 RRRR%R2CR%L2CR"
26480 '
26490 '
26500 PLAY ,,,,,,SS1$,SS2$
26510 PLAY     ,,,,,,P1$,P2$,P3$,P4$
26520 PLAY B0$ ,,,,,,P1$,P2$,Q3$,P4$
26530 PLAY B0E$,,,,,,P1$,P2$,P3$,P4$
26540 PLAY B1F$,,,,,,Q1$,P2$,Q3$,P4$
26550 PLAY B0E$,A1L$,A1R$,A1C$,,,P1$,P2$,P3$,P4$
26560 PLAY B0F$,A1E$,A1F$,A1G$,,,P1$,P2$,Q3$,P4$
26570 PLAY B1$ ,A1H$,A1I$,A1J$,,,P1$,P2$,P3$,P4$
26580 PLAY B2E$,A1L$,A1R$,A1C$,,,P1$,P2$,Q3$,P4$
26590 PLAY B1$ ,A1L$,A1R$,A1C$,C1L$,C1R$,P1$,P2$,P3$,P4$
26600 PLAY B1E$,A1E$,A1F$,A1G$,C1E$,C1F$,P1$,P2$,Q3$,P4$
26610 PLAY B1F$,A1H$,A1I$,A1J$,C1G$,C1H$,P1$,P2$,P3$,P4$
26620 PLAY B1E$,A1L$,A1R$,A1C$,C1I$,C1J$,Q1$,P2$,Q3$,P4$
26630 PLAY B2$ ,A2L$,A2R$,A2C$,C2L$,C2R$,S1$
26640 PLAY B2E$,A2E$,A2F$,A2G$,C2L$,C2R$,S1$,BP1$
26650 PLAY B2$ ,A2H$,A2I$,A2J$,C2L$,C2R$,P1$,P2$,P3$
26660 PLAY B2F$,A2K$,A2M$,A2N$,C2E$,C2F$,R1$,R2$,R3$
26670 PLAY B3$ ,A3L$,A3R$,A3C$,C3L$,C3R$,P1$,P2$,P3$,P4$,P5$
26680 PLAY B3E$,A3E$,A3F$,A3G$,C3E$,C3F$,P1$,P2$,Q3$,P4$,P5$
26690 PLAY B3$ ,A3H$,A3I$,A3J$,C3G$,C3H$,P1$,P2$,P3$,P4$,P5$
26700 PLAY B3E$,A3E$,A3F$,A3G$,C3I$,C3J$,R1$,R2$,R3$
26710 PLAY B3$ ,A3L$,A3R$,A3C$,C4L$,C4R$,P1$,P2$,P3$,P4$,P5$
26720 PLAY B2E$,A3E$,A3F$,A3G$,C4E$,C4F$,Q1$,P2$,Q3$,P4$,P5$
26730 PLAY B3$ ,A3H$,A3I$,A3J$,C3G$,C3H$,P1$,P2$,P3$,P4$,P5$
26740 PLAY B3F$,A3K$,A3M$,A3N$,C4G$,C4H$,P6$,P2$,Q3$,P4$,P5$
26750 PLAY B4$ ,A4L$,A4R$,A4C$,C5L$,C5R$,P1$,P2$,P3$,P4$,P5$
26760 PLAY B4E$,A4E$,A4F$,A4G$,C5E$,C5F$,P1$,P2$,Q3$,P4$,P5$
26770 PLAY B4F$,A4H$,A4I$,A4J$,C5G$,C5H$,P1$,P2$,P3$,P4$,P5$
26780 PLAY B4G$,A4K$,A4M$,A4N$,C5I$,C5J$,Q1$,P2$,Q3$,P4$,P5$
26790 PLAY B2$ ,A2L$,A2R$,A2C$,,,P6$,   ,P5$
26800 PLAY B2E$,A2E$,A2F$,A2G$,,,Q6$,   ,P5$
26810 PLAY B2$ ,A2H$,A2I$,A2J$,,,P6$,P2$,P5$
26820 PLAY B2G$,A2O$,A2P$,A2Q$,,,R6$,P2$,P5$
26830 RETURN
26840 '
26850 '
26860 *S_72
26870 'PASTURE SCAPE VIOLENCE
26880 '
26890 AL$="@34V8O2L16Q1" : AR$=AL$+"V2R10" : AE$=AL$+"V7"
26900 A0L$=AL$+"@108Q8]] ARAR>E8<A>D#8<A>D8C8D8 <ARAR>E8<A>D#8<A>D8D#8D8 "
26910 A0R$=AR$+"@108Q8]  ARAR>E8<A>D#8<A>D8C8D8 <ARAR>E8<A>D#8<A>D8D#8D90"
26920 A0E$=AL$+"@108Q8]] ARAR>E8<A>D#8<A>D8C8D<G ARAR>E8<A>D#8<A>D8EGA8  "
26930 A0F$=AR$+"@108Q8]  ARAR>E8<A>D#8<A>D8C8D<G ARAR>E8<A>D#8<A>D8EGA90 "
26940 A1L$=AL$+"A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C<D@34RDD#8>E@34RE@34R"
26950 A1R$=AR$+"A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C<D@34RDD#8>E@34RE90"
26960 A1E$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C (E@34R)ED#DC<G "
26970 A1F$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C (E@34R)ED#DC90 "
26980 A1G$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C  @34A@34RG@34RERD#D"
26990 A1H$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>CQ8@38A@38RG@38RERD# "
27000 A1I$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#"
27010 A1J$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#"
27020 A1I$=A1I$+">E<E8>D#<E8>D<E8>C<E @108Q8]]] RG4 "
27030 A1J$=A1J$+">E<E8>D#<E8>D<E8>C<E @108Q8]]  RG8 "
27040 A2L$=AL$+"@108Q8>> D2&D4&D8 E8&E1"
27050 A2R$=AE$+"@108Q8>  B2&B4&B8>C8&C1"
27060 A2E$=AL$+"@108Q8>> D2&D4 G8 E8&E2  D4C4"
27070 A2F$=AE$+"@108Q8>  B2&B4>E8 C8&C2 <B4A4"
27080 A2G$=AL$+"@108Q8>> C2&C4&C8 G8&G2F4E4"
27090 A2H$=AE$+"@108Q8>  G2&G4&G8>C8&C2D4C4"
27100 A3L$=AL$+"@34Q1>   ARRRARRGRGE8G8G#8 ARRRARRGRGE8D#8E8 Q8"
27110 A3R$=AE$+"@34Q1>   ERRRERRDRDC8D8D#8 ERRRERRDRDC8C8 C8 Q8"
27120 A3E$=AL$+"@34Q1>   ERRRRR DR RRRRRRRR CRRRRRDR RRRRRRRR Q8"
27130 A3F$=AE$+"@34Q1>   CRRRRR<BR RRRRRRRR ARRRRRBR RRRRRRRR Q8"
27140 A3G$=AL$+"@34Q1>   ERRRRR DR RRRRRRRR CRRRRR<BR RR>CRRRDR Q8"
27150 A3H$=AE$+"@34Q1>   CRRRRR<BR RRRRRRRR ARRRRR GR RR ARRRBR Q8"
27160 A4L$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  GRFERRRR RRCRRRDR  Q8"
27170 A4R$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  ERDCRRRR<RRGRRRAR  Q8"
27180 A4E$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  G2 F4E4  Q8"
27190 A4F$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  E2 D4C4  Q8"
27200 A4G$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  G4RRF4RRE4 Q8"
27210 A4H$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  E4RRD4RRC4 Q8"
27220 A5L$=AL$+"@34Q8>   C@34RRR C4&C2 V3Q1 RRCRRC RR CRRC RRCR"
27230 A5R$=AE$+"@34Q8>  <G@34RRR G4&G2 V2Q1 RRGRRG#RR ARRA#RRBR"
27240 A5E$=AL$+"@34Q1>  <B@34>C@34RR Q8C4&C2 &C1 "
27250 A5F$=AE$+"@34Q1>  <G@34 G@34RR Q8G4&G2 &G1 "
27260 A6L$=AL$+"@34Q1>   E@34RRRE4E8F8E8 CRR V5CCRCRCR<FRFGRGB8"
27270 A6R$=AE$+"@34Q1>   C@34RRRC4C8D8C8<ARR V1AARARAR DRDEREG8"
27280 A6E$=AL$+"@34Q1>   GE@34RRE4E8F8E8G  V5(RRG@34)3 V6ARRGRRF8"
27290 A6F$=AE$+"@34Q1>   DC@34RRC4C8D8C8D  V0(RRD   )3 V5FRRERRD8"
27300 '
27310 CL$="@20V6O4L16" : CR$=CL$+"V5"
27320 C1L$=CL$+" ARDRARDARADRARDC#  DRARDRADRDARDRAR"
27330 C1R$=CR$+" FRRRFRRFRFRRFRRR  <BRRRBRRBRBRRBRRR"
27340 C1E$=CL$+" ARDRARDARADRARDC#  DRARDRADRD<B8>C8 F8"
27350 C1F$=CR$+" FRRRFRRFRFRRFRRR  <BRRRBRRBRB G8 A8>C8"
27360 C2L$=CL$+" E8(F8G8E4)3 F8G8E8"
27370 C2R$=CR$+" C8(D8E8C4)3 D8E8C8"
27380 C2E$=CL$+" F8E8 C8<G2&G4&G8 >C4 E4F4"
27390 C2F$=CR$+" D8C8<G8 E2&E4&E8  G4>C4D4"
27400 C3L$=CL$+" RRRR D&D8C RRRR<A4>  RRCC#D&D8C  RERR G4"
27410 C3R$=CR$+" RRRR<A&A8G RRRR E4   RRGR A&A8G >RCRR D4"
27420 C3E$=CL$+"@24Q5V6   <DRDR>(D[DR)4 V6<GRGR>(G[GR)4 Q8"
27430 C3F$=CR$+"@24Q5V2R5 <DRDR>(D[RA)4 V2<GRGR>(R[RD)  Q8"
27440 C3G$=CL$+" RRRR D&D8C RRRR<A4   ]E4E8]F4EF ]L32 G#AA#B>CC# D16"
27450 C3H$=CR$+" RRRR<A&A8G RRRR E4   ]C4C8]D4CD ]L32 E FF#G AA# B16"
27460 C4L$=CL$+"V1 B2&B4&B8A8 &A2&A4 F#4"
27470 C4R$=CR$+"V0 G2&G4&G8F8 &F2&F4 D#4"
27480 C4C$=CR$+"V0 E2&E4&E8D8 &D2&D4 C4"
27490 C4E$=CL$+"V1 B2&B4&B8>C8 &C2&C4 >D4" :C4H$=CL$+"V1B1&B1L32 AG#GF#FE"
27500 C4F$=CR$+"V0 G2&G4&G8 A8 &A2&A4  B4" :C4I$=CR$+"V0G1&G1L32 F#FED#DC"
27510 C4G$=CR$+"V0 E2&E4&E8 F8 &F2&F4  G4" :C4J$=CR$+"V0E1&E1L32<AG#GF#FE"
27520 C5L$=CL$+"V4 <B2&B4&B8>C8 &C2 ]]ERR DRRC8"
27530 C5R$=CR$+"V3 <G2&G4&G8 A8 &A2>]]CRR<BRRA8"
27540 E1$ ="@13V5O5L16   ( %L5AR%R5A#R%L5A#R(%R5A#%L5AR)%C>CR<G#A) Q8"
27550 E2$ ="@94V7O4L16  BR>CRC<BRBR>C<B8>C8DC <BR>CRC<BRBR>C<B8>C8D8  Q8"
27560 E2E$="@94V7O4L16  BR>CRC<BRBR>>C<BRC8DC <BR>CRC<BRBR>C<B8>>CRCR Q8"
27570 E3$ ="@60V7O4L16Q8  ((A<A>)Q8A8Q4A<A>) (A<A>)>A8<<A>A(A<A>)4"
27580 B1$= "@28 V9O3L16Q7 <A8&AG8&GA4ER>ERE<G A8&AG8&GA4D8D#8E8"
27590 B1E$="@28 V9O3L16Q7 <A8&AG8&GA4ER>ERE<G A#8&A# A#8AA#8 >C4<A#4"
27600 B2$ ="@107V9O1L16Q4 >D4&D8DR RRRRRR<DR  G4&G8GR RRGR Q8A4      Q8"
27610 B2E$="@107V9O1L16Q8  R1R2R4  A4"
27620 B2F$="@107V9O1L16Q8 >D4&D8DR RRRRRR<DR  G4&G8GR F4G4       "
27630 B3$ ="@28 V9O3L16Q7 CRC8CRCCR<B>C8CRC<E  FRF8FRFFREF8>E8D8 Q8"
27640 B3E$="@28 V9O3L16Q7 CRRC8<B>C8&C<B>C8<GR>C<A FRF8>FD#RCR<BA#8G#8A#8"
27650 B3F$="@28 V9O3L16Q7 <(ERR)ERR AGRF8E8     FRF8FRFF8EF8G8>D8 Q8"
27660 B4$ ="@28 V9O3L16Q7 DRD8DC8<A8G#A8G8A>E [GRG8GF8D8CD8C8D8  Q8"
27670 B4E$="@28 V8O3L16Q7 D8GDRRRR RCC8D8<AG# ]G8FGRRRR RFF8G8>C8  Q8"
27680 B4F$="@28 V8O3L16Q7 D8GDRRRR RCC8D8<AG# ]F4F8G4G8>D4"
27690 B5$ ="@28 V9O3L16Q7 CRRRC4<A8>C8<A8F8 &FEFR F8F#8 G8DF8GB8"
27700 B5E$="@28 V9O3L16Q7 CR<C8>C4<A8>C8<A8>G8&G<G>G8F<F>F8E<E>CD8<AB8"
27710 B5F$="@28 V9O3L16Q7 CR<C8>C4<B>CRC<CB>C8 G<G8>F#<G8>F<G8>E<G8>D8C#8"
27720 B5G$="@28 V9O3L16Q7 C<GB8>C4<C>CRC<CB>C8 <GGRGG8FGRDG8F8G8"
27730 B5H$="@28 V9O3L16Q7 CRRRC4<B8>C8<B8>C8 &C1"
27740 '
27750 P1$= "@2V10O1L16  CRRRCRRRCRRRCRRR      CRRRCRRRCRRRCRRR"
27760 P2$= "@8V10O3L16  RRGRRRGRRRGRRRGR      RRGRRRGRRRGRRRGR"
27770 Q2$= "@8V10O3L16  RRGRRRGRRRGRRRGR      RRGRRRGRRG<<E>>RGRV3GG"
27780 P3$= "@2V5 O7L16  FRRRFRRRFRRRFRRA32F32 FRRRFRRRFRRRFRRR"
27790 P4$= "@6V3 O6L16  RRCRRRCRRRCRRRCR      RRCRRRCRRRCRRRCR"
27800 PP1$="@9V10O1L16  CRRCRRRRRRCRRCRC      CRCRRRRRRRCRRRCR"
27810 PS1$="@9V10O1L16  CRRCRRRRRRCRRCRC      CRRRRRRRRRRRRRRR"
27820 SS1$="@9V10O1L16  CRRRRRRRRRRRRRRR      RRRRRRRRRRRRRRRR"
27830 PP2$="@8V10O3L16  RRRRGRRGRGRRGRRR      RRRRGRRGRGRRGRV3GG"
27840 PS2$="@8V10O3L16  RRRRGRRGRGRRGRRR      RRRRRRRRRRRRRRRR"
27850 PP3$="@5V5 O5L16  RRCRRRCRCRRRRRCD32C32 CRCRRRCRCRRRRRRR"
27860 PS3$="@5V5 O5L16  RRCRRRCRCRRRRRCD32C32 CRRRRRRRRRRRRRRR"
27870 BP1$="@8V10O2L16  RRRRRRRRRRRRRRRR      RRRRRRRRGRGRG32G32GRG"
27880 BP2$="@9V10O2L16  R1   %L9CR%R9CR%CCR%L9CCR%R9C%L9CR%R9CR %C@8GR"
27890 BP3$="@1V15O3L16  R1   %L9RG%R9GR%L9GR%R9G%L9GRG%R9GR%L9GR%CGR"
27900 BP4$="@2V8 O1L16  R1   RRRRRRRR RRCRCRCR "
27910 BP5$="@6V0 O5L16 (%L9CR%R9CRCR%CCR)(CCCC])CC]C]C] %R9C]]%L9C %C<C8"
27920 '
27930 '
27940 '
27950 PLAY     ,A1L$,A1R$,,,   ,   ,P4$,P3$
27960 PLAY     ,A1E$,A1F$,,,   ,   ,P4$,P3$
27970 PLAY     ,A1L$,A1R$,,,E3$,P1$,P4$,P3$
27980 PLAY     ,A1G$,A1H$,,,E3$,P1$,P4$,P3$,BP1$
27990 PLAY B1$ ,A1L$,A1R$,,,E3$,P1$,P2$,P3$
28000 PLAY B1$ ,A1E$,A1F$,,,E3$,P1$,P2$,P3$
28010 PLAY B1$ ,A1L$,A1R$,,,E3$,P1$,P2$,P3$
28020 PLAY B1E$,A1I$,A1J$,,,E3$,P1$,P2$,P3$,BP5$
28030 PLAY     ,C1L$,C1R$,A0L$,A0R$,E1$,PP1$,PP2$,PP3$,P4$
28040 PLAY B2E$,C1L$,C1R$,A0E$,A0F$,E1$,PP1$,PP2$,PP3$,P4$
28050 PLAY B2$ ,C1L$,C1R$,A0L$,A0R$,E1$,PP1$,PP2$,PP3$,P4$
28060 PLAY B2F$,C1E$,C1F$,A0E$,A0F$,E1$,PP1$,PP2$,PP3$,P4$,BP2$
28070 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
28080 PLAY B3E$,C2L$,C2R$,A2E$,A2F$,,P1$,PP2$,PP3$,P3$,P4$
28090 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
28100 PLAY B3F$,C2E$,C2F$,A2G$,A2H$,,P1$,PP2$,PP3$,P3$,P4$
28110 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
28120 PLAY B3E$,C2L$,C2R$,A2E$,A2F$,,P1$,PP2$,PP3$,P3$,P4$
28130 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
28140 PLAY B3F$,C2E$,C2F$,A2G$,A2H$,,P1$,PP2$,PP3$,P3$,P4$,BP3$
28150 PLAY A3L$,A3R$,    ,    ,    ,,PP1$,PP2$,PP3$,P4$
28160 PLAY A3L$,A3R$,    ,    ,    ,,PP1$,PP2$,PP3$,P4$
28170 PLAY A3L$,A3R$,    ,C3L$,C3R$,,PP1$,PP2$,PP3$
28180 PLAY A3L$,A3R$,B2E$,C3L$,C3R$,,PS1$,PP2$,PP3$,BP4$
28190 PLAY A3E$,A3F$,B2$ ,C3E$,C3F$,,P1$,P4$
28200 PLAY A3G$,A3H$,B2$ ,C3E$,C3F$,,P1$,P4$
28210 PLAY A3E$,A3F$,B2$ ,C3E$,C3F$,,P1$,P4$
28220 PLAY A3G$,A3H$,B2F$,C3E$,C3F$,,P1$,P4$,BP1$
28230 PLAY A3E$,A3F$,B4$ ,C3E$,C3F$,E2$ ,P1$,PP2$,PP3$,P4$
28240 PLAY A3G$,A3H$,B4$ ,C3E$,C3F$,E2E$,P1$,PP2$,PP3$,P4$
28250 PLAY A3E$,A3F$,B4$ ,C3E$,C3F$,E2$ ,P1$,PP2$,PP3$,P4$
28260 PLAY A3G$,A3H$,B4$ ,C3E$,C3F$,E2E$,P1$,PP2$,PP3$,P4$
28270 PLAY A6L$,A6R$,B4$ ,C5L$,C5R$,,SS1$
28280 PLAY A6E$,A6F$,B4$ ,C5L$,C5R$,,SS1$
28290 PLAY A6L$,A6R$,B4E$,C3L$,C3R$,,PS1$,PS2$,PS3$,BP4$
28300 PLAY A6E$,A6F$,B4F$,C3L$,C3R$,,PP1$,PP2$,PP3$,P4$,BP2$
28310 PLAY A4L$,A4R$,B4$ ,C3L$,C3R$,E2$ ,P1$,PP2$,PP3$,P4$
28320 PLAY A4E$,A4F$,B4$ ,C3L$,C3R$,E2E$,P1$,PP2$,PP3$,P4$
28330 PLAY A4L$,A4R$,B4E$,C3L$,C3R$,E2$ ,P1$,PP2$,PP3$,P4$
28340 PLAY A4G$,A4H$,B4F$,C3G$,C3H$,E2E$,P1$,PP2$,PP3$,P4$,BP1$
28350 PLAY A5L$,A5R$,B5$ ,C4L$,C4R$,C4C$,PP1$,PP2$,PP3$
28360 PLAY A5L$,A5R$,B5E$,C4E$,C4F$,C4G$,PP1$,PP2$,PP3$
28370 PLAY A5L$,A5R$,B5F$,C4L$,C4R$,C4C$,PP1$,PP2$,PP3$
28380 PLAY A5L$,A5R$,B5G$,C4E$,C4F$,C4G$,PS1$,PS2$,PS3$
28390 PLAY A5E$,A5F$,B5$ ,C4L$,C4R$,C4C$
28400 PLAY     ,    ,B5E$,C4E$,C4F$,C4G$
28410 PLAY     ,    ,B5F$,C4L$,C4R$,C4C$
28420 PLAY     ,    ,B5H$,C4H$,C4I$,C4J$
28430 RETURN
28440 '
28450 '
28460 *S_72E
28470 'SUNNY MONDAY
28480 '
28490 AL$="@71V9O3L16%R1" : AR$=AL$+"V4R8%L1" : AE$=AL$+"V8%L1"
28500 A1L$=AL$+"> D2&D4&D8 E8&E1"
28510 A1R$=AE$+"  B2&B4&B8>C8&C1"
28520 A1E$=AL$+"> D2&D4&D8 C8&C2<B4>C4"
28530 A1F$=AE$+"  B2&B4&B8 A8&A2 G4 A4"
28540 A2L$=AL$+"> E4&E8 D8&D2 C4&C8D8&D2 Q8"
28550 A2R$=AE$+"> C4&C8<B8&B2 A4&A8B8&B2 Q8"
28560 A2E$=AL$+"> E4&E8 D8&D2 C4&C8<B4 >C8&CD8 Q8"
28570 A2F$=AE$+"> C4&C8<B8&B2 A4&A8 G4  A8&AB8 Q8"
28580 A2G$=AL$+"> E4&E8 D8&D2 C4&C8 D8 &D2  Q8"
28590 A2H$=AE$+"> C4&C8<B8&B2 A4&A8 A#8&A#2 Q8"
28600 A3L$=AL$+"> R4 G2&G4 F#4&F#8 G4&G8 A4 "
28610 A3R$=AE$+"> R4 E2&E4 D4 &D8  E4&E8 F#4"
28620 A3E$=AL$+"> B2&B4&B8>C8&C2 D#32D32&D8C&C8<A8"
28630 A3F$=AE$+"> G2&G4&G8 A8&A2 A&A8      G8&G E8"
28640 A4L$=AL$+"> ARARAARARGAR>C<RAG ARARGARAR>D<AR>E<RAR"
28650 A4R$=AR$+"> ARARAARARGAR>C<RAG ARARGARAR>D<AR>E<R  "
28660 A4E$=AL$+"> G#32A32RGEGRDERCDR<A>CDE DCDR<AR>DD#32ER32GERDRER"
28670 A4F$=AR$+"> G#32A32RGEGRDERCDR<A>CDE DCDR<AR>DD#32ER32GERDR  "
28680 A4G$=AL$+"> (EER)D#32E32ERDERDC<A>D  D#32E32DRCDRD# ERGDR AD#DC"
28690 A4H$=AR$+"> (EER)D#32E32ERDERDC<A>D  D#32E32DRCDRD# ERGDR AD#  "
28700 A4I$=AL$+"  A1&A1"
28710 A4J$=AE$+"  E1&E1"
28720 A5L$=AL$+"> G4&G8 F#8&F#2  &F#2 E4 F#4"
28730 A5R$=AE$+"> D4&D8 D8&D2    &D2  C4 D4 "
28740 A5E$=AL$+"> R4G4&G2  @101<< G4&G8A4&A8>C4"
28750 A5F$=AE$+"> R4D4&D2  @101<< D4&D8E4&E8 G4"
28760 A6L$=AL$+"@101%L3]]   C1 &C2&C8< BA B8A G"
28770 A6R$=AE$+"@101%R3]]  <G1 &G2&G8  GF#G8F#E"
28780 A6E$=AL$+"@101%L3]]  <A4&A8   >D1&D8< A4 B4"
28790 A6F$=AE$+"@101%R3]]  <F#4&F#8  A1&A8  F#4G4"
28800 A6G$=AL$+"@101%L3]]  <A4&A8    F#1&F#8 >D4 A4"
28810 A6H$=AE$+"@101%R3]]  <F#4&F#8  D1&D8    A4>D4"
28820 A6I$=AL$+"@101%L3]]  <A1 "
28830 A6J$=AE$+"@101%R3]]  <F#1"
28840 A7L$=AL$+"@86%L3Q1V5  D8F#8G8>C8<D8F#8G8>D8< D8F#8G8>F#8<D8F#8G8>D8"
28850 A7R$=AE$+"@86%R3Q1V2R5D8F#8G8>C8<D8F#8G8>D8< D8F#8G8>F#8<D8F#8G90  "
28860 '
28870 CL$="@106V9O4L16" : CR$=CL$+"V7"
28880 C1L$=CL$+" RRRR D&D8C RRRR<A4>  RRCC#D&D8C  RERR G4"
28890 C1R$=CR$+" RRRR<A&A8G RRRR E4   RRGR A&A8G >RCRR D4"
28900 C1E$=CL$+" RRRR D&D8C RRRR<A&A8A> RRCC#D&D8C  RERR <A>CD D#"
28910 C1F$=CR$+" RRRR<A&A8G RRRR E&E8E  RRGR A&A8G >RCRR <E GB>C "
28920 C2L$=CL$+" E8F8G2&G8FEF4&F8 D4&D8 E4"
28930 C2R$=CR$+" C8D8E2&E8DCD4&D8<A4&A8>C4"
28940 C2E$=CL$+" E8F8G8E4F8G8 FEF4&F8 D4&D8 E8F8 "
28950 C2F$=CR$+" C8D8E8C4D8E8 DCD4&D8<A4&A8>C8D8 "
28960 C2G$=CL$+" E8 D8C8<A2A>E F8E8F8 D4&D8 E4"
28970 C2H$=CR$+" C8<A8G8 E2E>C D8C8D8<A4&A8>C4"
28980 C3L$=CL$+" G#32A32&A8G&G8 E2  E DC&C8D&D8 D#32E32&E D8&D<A&A8>C8"
28990 C3R$=CR$+" E&E8      D&D8 C2  C<AG&G8A&A8>C8       <A8&A E&E8 G8"
29000 C3E$=CL$+" G#32A32&A8G&G8 E4&E8AG E DC&C8D&D8 D#32E32&E D<GR>D<AR>G8"
29010 C3F$=CR$+" E&E8      D&D8 C4&C8ED C<AG&G8A&A8>C8       <A DR A ER>D8"
29020 C4L$=CL$+"@24V6Q3%R5   R4R8<B>C<B&B8G&G8A2 B>C<B&B8G&G8C8  Q8"
29030 C4R$=CR$+"@24V1Q8%L5R5 R4R8<B>C<B&B8G&G8A2 B>C<B&B8G       Q8"
29040 C4E$=CL$+"@24V6Q3%R5   R4R8<F#GA&A8R4C R4R8D8A8&AG&G4  Q8"
29050 C4F$=CR$+"@24V1Q8%L5R5 R4R8<F#GA&A8R4C R4R8D8A8&AG&G90 Q8"
29060 C5L$=CL$+"Q5     <DRDR>(D[DR)4 V6<GRGR>(G[GR)4 Q8"
29070 C5R$=CR$+"Q5V2R5 <DRDR>(D[RA)4 V2<GRGR>(R[RD)  Q8"
29080 C5E$=CL$+"Q5     <DRDR>(D[DR)4 Q1@41 V6<CRCR>(C[CR)4 Q8"
29090 C5F$=CR$+"Q5V2R5 <DRDR>(D[RA)4 Q1@41 V2<CRCR>(C[RC)  Q8"
29100 E1$ ="@117V7O3L16 RRE4E4E4E4 F4F4F4F8 Q8"
29110 E2$ ="@33V8O2L16Q1((A>EG<)A>EA<A>EB<A>EAG<) Q8"
29120 E2E$="@33V8O2L16Q1(A>EG<)A>EA<A>EB<A>EAG<(A>EG<)A>DA<ACQ8DL32(EGA>D)"
29130 E3L$="@41V6O3L16Q8%R4  R4DRADRDRD>D8&DD< %L4<AR>CD>D<RADRDRD>D8&DD< "
29140 E3R$="@41V2O3L16Q8%L4R8R4DRADRDRD>D8&DD< %R4<AR>CD>D<RADRDRD>D8     "
29150 B1$= "@28V9 O2L16Q8  A8&AG8EGRRRRRE8G8  >[D&D8C4&C8CRCD4 "
29160 B1E$="@28V9 O2L16Q8  A8&AG&G8A4&A8E8&ED#>[D&D8CRRCCRRC8D8C8 "
29170 B2$= "@28V9 O2L16Q8  A8&AG8&GA4ER D#REG >[D&D8CRCD8&D<EA8G8G#8 Q8"
29180 B2E$="@28V9 O2L16Q8  A8&AG8&GA4ER D#RGA  A#8&A# A#8AA#8 >C4D4 Q8"
29190 B3$ ="@96V9 O1L16Q8 >C1&C2&C8   <A#4B8 "
29200 B3E$="@28V9 O2L16Q8  A&A8G8&GA4ER D#REG >[D&D8CRCDD## ERE8<] EDG8 "
29210 B3F$="@28V9 O2L16Q8  A1&A1"
29220 B4$ ="@88V9 O1L16Q4  DDRRDRCDRDDRDD>D<D  C&C8CCRRR C<A#8&A# B4 "
29230 B4E$="@88V7 O1L16Q8  D<A>D8&D4<DFGA>CDDD F8&FD &D2 AGFC"
29240 B4F$="@88V5 O1L16Q8  D2 V4D2 V3D2 V2D4 V1D4"
29250 '
29260 '
29270 P1$= "@1V4 O0L16 GRRRRRRRGGRGRRRG      GRRRRRRRGRRRRRGR"
29280 P2$= "@8V6 O2L16 RRRRGRRRRRRRGRRR      RRRRGRRRRGRRGRV5GG"
29290 Q2$= "@8V6 O2L16 RRRRGRRRRRRRGRRG      RRRRGRRRGGRRGRRR"
29300 P3$= "@5V6 O6L16 CRRRRRCCRRRRRRCC32C32 CRRCRRCCRRCRRCRR"
29310 P4$= "@6V1 O5L16 RRCRRRCRRRCRRRCR      RRCRRRCRRRCRRRCR"
29320 P5$= "@9V11O1L16 CRRRCRRRCRRRCCRR      CRRRCRRRCRRRCRCR"
29330 S5$= "@9V11O1L16 CRRRRRRRRRRRRRRR      RRRRRRRRRRRRRRRR"
29340 PP1$="@3V8 O2L16 RCCRGCRCRRRCGCRE32C32 RCCRGCRCRRRCGCRC"
29350 PP2$="@7V11O8L16 RRRRCRRRRRRRRRRC      CRRRRRRRRRCRRRRR"
29360 PP3$="@3V4 O8L16 CRRCRRCRRCRRCRRC      RRCRRCRRRC32C32RCRRCR"
29370 PL4$="@2V7 O4L16%R5   CRDRDCRCRDC8G8CD  CRDRDCRCRGC8D8C8 Q8"
29380 PR4$="@2V2 O4L16%L5R5 CRDRDCRCRDC8G8CD  CRDRDCRCRGC8D90  Q8"
29390 BP1$="@6V0 O5L16 R1 (CCCC]) CC]C]C]] %L9C]%R9C] %CC8"
29400 BP2$="@9V10O2L16 R1 R2 CRR%R8C%L8CRC @4V5G32G32 "
29410 '
29420 '
29430 '
29440 PLAY B1$ ,A1L$,A1R$,    ,    ,,    ,PP3$
29450 PLAY B1$ ,A1E$,A1F$,    ,    ,,PP1$,PP3$
29460 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,,PP1$,PP2$,PP3$
29470 PLAY B1E$,A1E$,A1F$,C1E$,C1F$,,PP1$,PP2$,PP3$
29480 PLAY B2$ ,A2L$,A2R$,C2L$,C2R$,E1$,P5$,   ,P4$,PP1$,PP2$,PP3$
29490 PLAY B2$ ,A2E$,A2F$,C2E$,C2F$,E1$,P5$,   ,P4$,PP1$,PP2$,PP3$
29500 PLAY B2$ ,A2L$,A2R$,C2L$,C2R$,E1$,P5$,P2$,P3$,P4$,PP1$,PP2$,PP3$
29510 PLAY B2E$,A2G$,A2H$,C2G$,C2H$,E1$,P5$,P2$,P3$,P4$,PP1$,PP2$,PP3$
29520 PLAY B3$ ,C1L$,C1R$,    ,    ,,P1$,P2$,P3$,P4$
29530 PLAY B3$ ,C1L$,C1R$,    ,    ,,P1$,P2$,P3$,P4$
29540 PLAY B3$ ,C1L$,C1R$,A3L$,A3R$,,P1$,P2$,P3$,P4$
29550 PLAY B3$ ,C1E$,C1F$,A3E$,A3F$,,P1$,Q2$,P3$,P4$,BP1$
29560 PLAY B3E$,C3L$,C3R$,A4L$,A4R$,E1$,P5$,P4$,    ,PP3$
29570 PLAY B3E$,C3E$,C3F$,A4E$,A4F$,E1$,P5$,P4$,    ,PP3$
29580 PLAY B3E$,C3L$,C3R$,A4L$,A4R$,E1$,P5$,P4$,PP1$,PP3$
29590 PLAY B3E$,C3E$,C3F$,A4G$,A4H$,E1$,P5$,P4$,PP1$,PP3$
29600 PLAY B3E$,C1L$,C1R$,A4I$,A4J$,E1$,   ,P2$,P3$
29610 PLAY B1E$,C1E$,C1F$,    ,    ,E1$,   ,Q2$,P3$
29620 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E1$,P5$,P2$,P3$
29630 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E1$,P5$,Q2$,P3$
29640 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
29650 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
29660 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
29670 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E2E$,P5$,Q2$,P3$,P4$,BP1$
29680 PLAY B3F$,C4E$,C4F$,    ,    ,E1$,S5$,   ,P3$,P4$,PP3$,PL4$,PR4$
29690 PLAY     ,C4E$,C4F$,    ,C5R$,E1$,   ,   ,P3$,P4$,PP3$,PL4$,PR4$
29700 PLAY B4$ ,C4E$,C4F$,C5L$,C5R$,E1$,   ,P2$,P3$,P4$,PP3$,PL4$,PR4$
29710 PLAY B4$ ,C4L$,C4R$,C5L$,C5R$,E1$,   ,Q2$,P3$,P4$,PP3$,PL4$,PR4$,BP2$
29720 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
29730 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
29740 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
29750 PLAY B4$ ,A5E$,A5F$,C5E$,C5F$,E1$,S5$,P2$,P4$,PL4$,PR4$,BP1$
29760 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
29770 PLAY B4E$,A6E$,A6F$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
29780 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
29790 PLAY B4E$,A6G$,A6H$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
29800 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
29810 PLAY B4E$,A6E$,A6F$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
29820 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
29830 PLAY B4E$,A6G$,A6H$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
29840 PLAY B4F$,A6L$,A6R$,A7L$,A7R$,,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
29850 PLAY     ,A6E$,A6F$,A7L$,A7R$,,   ,   ,PP3$,PP2$,PP1$,PL4$,PR4$
29860 PLAY     ,A6L$,A6R$,A7L$,A7R$,,   ,   ,    ,PL4$,PR4$
29870 PLAY     ,A6I$,A6J$,A7L$,A7R$
29880 RETURN
29890 '
29900 '
29910 *S_73
29920 'INDIAN CONTROL  [ Mosaic mix ]
29930 '
29940 AL$="@1V7O3L16Q8" : AR$=AL$+"V3R8" : AE$=AL$+"[["
29950 A1L$=AL$+"B>C<A8B>C<G8B>C<E8B>C<D8 C8D2 <G8>D8G8 Q8"
29960 A1R$=AR$+"B>C<A8B>C<G8B>C<E8B>C<D8 C8D2 <G8>D8   Q8"
29970 A1E$=AL$+"EDE8<A2>D4 EDE8<G4 %R10>>AGED C<AGE Q8"
29980 A1F$=AR$+"EDE8<A2>D4 EDE8<G4 %L10>>AGED C<A   Q8"
29990 A1G$=AL$+"EAE8<A2>C4 DGD8<G4 &G8 E8B8>C8"
30000 A1H$=AR$+"EAE8<A2>C4 DGD8<G4 &G8 E8B8  "
30010 A2L$=AL$+"D8C8D8A2DD#  E8D8E8B8&B4>E4"
30020 A2R$=AR$+"D8C8D8A2DD#  E8D8E8B8&B4>E8"
30030 A2E$=AL$+">C8<B8A8E4&E8D8E8 A4E8G4D8E8C8"
30040 A2F$=AR$+">C8<B8A8E4&E8D8E8 A4E8G4D8E8  "
30050 A3L$=AL$+"[[ D4&D8C8&C2 &C2&C4 G4"
30060 A3R$=AR$+"[[ D4&D8C8&C2 &C2&C4 G8"
30070 A3E$=AL$+"[[ E4&E8G4&G8B4 >C4&C8<B4&B8>D4"
30080 A3F$=AR$+"[[ E4&E8G4&G8B4 >C4&C8<B4&B8>D8"
30090 A3G$=AL$+"[[ >C4&C8<B4&B8E4 &E1"
30100 A3H$=AR$+"[[ >C4&C8<B4&B8E8 &E1"
30110 A3I$=AL$+"[[ G4&G8A8&A2 &A1"
30120 A3J$=AR$+"[[ G4&G8   A2 &A1"
30130 '
30140 C0L$="@5 V4O4L16Q3   GGQ8A8(Q3GQ8A8)3Q3GQ8>A<EQ3GGQ8A8(Q3GQ8A8)4  Q8"
30150 C0R$="@5 V1O4L16Q3R5 GGQ8A8(Q3GQ8A8)3Q3GQ8>A<EQ3GGQ8A8(Q3GQ8A8)GA Q8"
30160 C1L$="@44 V4O3L16Q2  A8&AARRG8&G>C<D8ERGG# A8&AARRG8&G>>C<<D8D#EG8Q8"
30170 C1R$="@44 V0O3L16Q2R8A8&AARRG8&G>C<D8ERGG# A8&AARRG8&G>>C<<D8D#E  Q8"
30180 C1E$="@109V7O4L16Q1%R4    ARRRARRRGRARRRE8 %L4GRARRRERGRRRARRR %CQ8"
30190 C1F$="@109V1O4L16Q1%L4 ERRARRRARRRGRARRDRR %R4GRARRRERGRRRA    %CQ8"
30200 C1G$="@12V4O5L16Q4    RRERRERR ERDDRD#ER <G>GGRGR<G>GRDGRD8G8 Q8"
30210 C1H$="@12V1O5L16Q8R8  RRERRERR ERDDRD#ER <G>GGRGR<G>GRDGRD8   Q8"
30220 C2$= "@43V5O3L16Q8 <A4>A4<RGAR>A8E8    <A8>EGA4<A8>EG A8>C8<"
30230 C2X$="@43V5O3L16Q8  ARA8GARARAA8>C8D<G ARA8GARARAA8E8E8"
30240 C2Y$="@43V5O3L16Q8  RRARRARRARRARGAR   ARA8GARARAA8E8E8"
30250 C2Z$="@43V5O3L16Q4  RRERRERRERRERDER Q2@115]]<EG8GA8A]>C8CD8E8GQ8G# "
30260 C2E$="@109V6O4L16Q1  %L4ERARE8GERAERGR>E8< %R4ERARE8GERAERGRDD# %CQ8"
30270 C2F$="@109V4O4L16Q1R8%R4ERARE8GERAERGR>E8< %L4ERARE8GERAERGR    %CQ8"
30280 C3L$="@115V11O3L16Q4%R3   ARRR>ARRR<GAR>CRDE<D RERA>ARRR<GAR>CRDC8"
30290 C3R$="@115V4 O3L16Q4%L3R5 ARRR>ARRR<GAR>CRDE<D RERA>ARRR<GAR>CR90 "
30300 C3E$="@115V11O4L16Q4%R3   ER<ARGA8>A<AR>G<A8EG8ARA8GA>C<ARA<A>AGA>C8"
30310 C3F$="@115V4 O4L16Q4%L3R5 ER<ARGA8>A<AR>G<A8EG8ARA8GA>C<ARA<A>AG90  "
30320 C3G$="@115V11O4L16Q4%R3   GAAR>A<AR>ER<DD#RERGRD#RRDRRCR<ARRRQ8@43G4"
30330 C3H$="@115V4 O4L16Q4%L3DRRGAAR>A<AR>ER<DD#RE   CRR<BRRGR ERRRQ8@43D4"
30340 C3I$="@115V11O4L16Q4%R3   ER<ARGA8>A<AR>G<A8EG8 ERRRR4%CV7A&A8G&G8E8"
30350 C3J$="@115V6 O4L16Q4%L3CRRER<ARGA8>A<AR>G<A8EG8 E   R4%CV6E&E8D&D8C8"
30360 C4L$="@50V8O1L16Q1>C<AA8>D<AA8>E<A>CDRD<GA>C<AA8>D<AA8>E<A>CDRD<G8Q8"
30370 C4R$="@79V6O2L16Q1 (%L5RRARR %R5ARE %L5ARR %R5A<<Q8A>Q1A> %CAR) Q8"
30380 C4E$="@114V3O3L16Q8  GAARA>A<AR>A<AERGAAE GAARA>A<AR>A<AERGAAR Q8"
30390 C4F$="@24 V5O3L16Q4  R4A8GA RRARRRAR  RRREA8GA RRD#EG4  Q8"
30400 C4G$="@114V3O3L16Q8  GAARRRRRRRRRRRAE GAARRRRRRRRRGAAR Q8"
30410 C4H$="@24 V5O3L16Q4  RRRRRRRRRRRRRRRR RRRRRRRRRRRRG4   Q8"
30420 C5L$="@42V7O4L16Q3    (E4)3 E8F#8 &F#4(F#4)3   Q8"
30430 C5R$="@42V2O4L16Q3R5  (E4)3 E8F#8 &F#4(F#4)    Q8"
30440 C5E$="@42V7O4L16Q3    (G4)3 G8A8  &A4(A4)3     Q8"
30450 C5F$="@42V2O4L16Q3R5  (G4)3 G8A8  &A4(A4)      Q8"
30460 C5G$="@42V7O4L16Q3     G4 R2R8AR  &R4R2R4     Q8"
30470 C5H$="@42V2O4L16Q3R5   G4 R2R8AR  &R4R2R90    Q8"
30480 C6L$="@50V9O4L16   R4E4F#4 @5>]]] RRF#R G4GRG4GRF#4  Q8"
30490 C6R$="@50V7O4L16   R4C4D4  @5>R5  RRF#R G4GRG4GRF#90 Q8"
30500 C6E$="@50V9O4L16   R4E4F#4 @5>]]] RRF#R G4GRG4GRA4   Q8"
30510 C6F$="@50V7O4L16   R4C4D4  @5>R5  RRF#R G4GRG4GRA90  Q8"
30520 C7L$="@56V6O2L16Q2   RRERAR>E<GADEGA8>E<GA>A<RR>>E<A<AR(A>AA>A<)  Q8"
30530 C7R$="@56V2O2L16Q8R8 RRERAR>E<GADEGA8>E<GA>A<RR>>E<A<ARA>AA>A<A>A Q8"
30540 C7E$="@56V6O2L16Q2(A>A<RR>>E<A<AR)F#>F#<F#8>F#<F#8F#G>G<G8>G#GG#8Q8"
30550 C7F$="@56V2O2L16Q8R8(A>A<RR>>E<A<AR)F#>F#<F#8>F#<F#8F#G>G<G8>G#G  "
30560 C7G$="@56V6O2L16Q2  (A>A<RR>>E<A<AR) E1       Q8"
30570 C7H$="@56V2O2L16Q8R8(A>A<RR>>E<A<AR) E2&E4&E8 Q8"
30580 E1L$="@12V5O3L16   (%L5Q2ARQ8A8%R5>Q2C<%CAR<Q8A>)4               Q8"
30590 E1R$="@12V1O3L16R8 (%R5Q2ARQ8A8%R5>Q2C<%CAR<Q8A>)3Q2ARQ8A8>Q2C<A Q8"
30600 E1E$="@12V5O3L16   >(%L5Q2ERQ8E8%R5Q2B%CER<Q8E>)4               Q8"
30610 E1F$="@12V1O3L16R8 >(%R5Q2ERQ8E8%R5Q2B%CER<Q8E>)3  Q2ERQ8E8Q2BE Q8"
30620 E2L$="@106V9O4L16Q2%R2    (GDAE)G>D<AE>G<DA>E< GE>AE<(GDAE)3   Q8"
30630 E2R$="@106V5O4L16Q2%L2R8  (GDAE)G>D<AE>G<DA>E< GE>AE<(GDAE) GD Q8"
30640 E3L$="@117V8O2L16Q1%R7   (EGAEG>A>A<D) EG8>E<G>A>A<D EG>A<EG>A>AE Q8"
30650 E3R$="@117V4O2L16Q1%L7R8 (EGAEG>A>A<D) EG8>E<G>A>A<D EG>A<EG>A>   Q8"
30660 E3E$="@117V8O4L16Q1%R7   (EGAEG>AE<D) EG8>E<G>AED EG>AEG>EAB Q8"
30670 E3F$="@117V4O4L16Q1%L7R8 (EGAEG>AE<D) EG8>E<G>AED EG>AEG>E   Q8"
30680 E4L$="@1 V8O3L16Q1%L3  (GD>G<EG>AE<DEDGA>A<EGD) Q8"
30690 E4R$="@1 V3O3L16Q1%R3R5 GD>G<EG>AE<DEDGA>A<EGD GD>G<EG>AE<D EDGA Q8"
30700 E4$= "@1 V6O3L16Q1     (%L5GD>G%R5<EG>A%CE<D %R5EDG%L5A>A<E%CGD) Q8"
30710 '
30720 B1$= "@28 V8 O2L16Q6 ERA8GARR RRRRE4  G8ARRRRR RRE4G8            Q8"
30730 B1E$="@12 V7 O3L16Q6 A8&AA RDE8 D8D8CD8D C8&CC8<A>C8 E>E<E8 G8EG Q8"
30740 B1F$="@12 V7 O3L16Q6 A8&AA RDE8 D8D8CD8D C8&CC8<A>C8<G4G4        Q8"
30750 B1G$="@28 V9 O2L16Q8 A2&A4&A8 ER RRERRE8D#   EGE8D8E8"
30760 B2$= "@88 V11O1L16Q8 (EA8)E>E<AEA8E8DD#(EA8)3@28>>>E<<<@88A8>A<GE8Q8"
30770 B2E$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC  (DA8)3@28>>>D<<<@88A8D8A8Q8"
30780 B2F$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC  @28>D2&D4 @79<D8Q3DD Q8"
30790 B2G$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC @81V8D2&D4 @28O2GA>C8  Q8"
30800 B3$ ="@56 V6 O1L16Q4 EGA8A>E8<AGGE8>E8<ED EGA8A>E8<AG>>A<<E8>E8<G8Q8"
30810 B3E$="@107V8O1L16Q8 R1R2R4 E4"
30820 B4$ ="@107V8O1L16Q5 A4A4A4GRA4 ERE4GRG8E8G#8 "
30830 B4E$="@107V8O1L16Q5 A&A8A&A8A8 ARRRF4 G&G8G&G8G8 D&D8D#8&D#E8"
30840 B4F$="@107V8O1L16Q5 F&F8F&F8A8 FRRRA4(F#&F#8)F#8 G>D<G8B4"
30850 '
30860 P1$= "@9 V10O1L16 CRCRRCRRRRCRRRCR      CRRCRCRRRRCRRRCR"
30870 S1$= "@9 V10O1L16 CRCRRCRRRRCRRRCR      CRRRRRRRRRRRRRRR"
30880 P2$= "@2 V15O4L16 RRRRGRRGRGRRGRRR      RRRRGRRGRGRRGRV5GG"
30890 R2$= "@2 V15O4L16 RRRRGRRGRGRRGRRR      RGRRCRRRGRGG32E32CRCR"
30900 S2$= "@2 V15O4L16 RRRRGRRRRGRRGRRR      RRRRRRRRRRRRRRRR"
30910 P3$= "@5 V6 O6L16 GRGRRRGRGRRRRGRG32G32 GRGRRGGRGRRRRGRR"
30920 S3$= "@5 V6 O6L16 GRGRRRGRGRRRRGRG32G32 GRRRRRRRRRRRRRRR"
30930 P4$= "@6 V6 O7L16 RRRRRRCRRRCRRRCR      RRRRRRCRRRCRRRRR"
30940 Q4$= "@6 V4 O5L16 RRCRRRCRRRCRRRCR      RRCRRRCRRRCRRRCR"
30950 S4$= "@6 V4 O5L16 RRCRRRCRRRCRRRCR      RRRRRRRRRRRRRRRR"
30960 P5$= "@7 V9 O8L16 RRRRRRRRRRRRCRRR      RRRRCRRRRRRRRRCR"
30970 P6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR      GRRRGRRRGRRRGRRR"
30980 Q6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR      GRRRRRRRRR @9 CRCRCR"
30990 R6$= "@1 V7 O0L16 GRRRRRRRRRRRRRRR      RRRRRRRRRRRRRRRR"
31000 T6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR      GRRRGRRRGRGRGRGR"
31010 P7$= "@6 V6 O7L16 (G@9C@6)RR(G@9C@6)RRG@9CR<A32G32> "
31020 P7$=  P7$+" @6     G@9C@6 RRRR G@9C@6 RR G@9C@6 RRG@9C"
31030 P8$= "@1 V9 O2L16 RRRRGRRR RRGRRRGR RRGRGRRR GRRRCRR @9V5O1C32C32"
31040 SP1$="@3 V10O3L16 (RRC)R<C>CRRCRRRC32C32 RRCRRC<C>RCR<C>CRCCR"
31050 BP1$="@6 V0 O5L16 R1 DDDD] DD]DD] D]D]]D]]D]] %L15D%R15D %C <D8"
31060 BP2$="@9 V11O3L16 R1 R2 RG%R9GR %L9GR%CGR"
31070 BP3$="@1 V11O3L16 R1 RFFRFRFFRFRFFRFF32F32"
31080 '
31090 '
31100 '
31110 PLAY     ,    ,C0L$,C0R$
31120 PLAY     ,    ,C0L$,C0R$
31130 PLAY C1L$,C1R$,C0L$,C0R$
31140 PLAY C1L$,C1R$,C0L$,C0R$,,,SP1$
31150 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
31160 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
31170 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
31180 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$,BP1$
31190 PLAY C1L$,C1R$,C2$,   ,E1L$,E1R$  ,P1$,P2$,P3$,P4$
31200 PLAY C1L$,C1R$,C2$,   ,E1L$,E1R$  ,P1$,P2$,P3$,P4$
31210 PLAY C1L$,C1R$,C2$,B1$,E1L$,E1R$  ,P1$,P2$,P3$,P4$
31220 PLAY C1L$,C1R$,C2$,B1$,E1E$,E1F$  ,S1$,P2$,P3$,P4$,BP2$
31230 PLAY C1E$,C1F$,C2$ ,B1E$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
31240 PLAY C1E$,C1F$,C2$ ,B1F$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
31250 PLAY C1E$,C1F$,C2$ ,B1E$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
31260 PLAY C2E$,C2F$,C2Y$,B1G$,C1G$,C1H$ ,R6$,   ,   ,   ,   ,BP1$
31270 PLAY C1E$,C1F$,C2X$,B1E$,C2E$,C2F$ ,P6$,P2$,P3$,Q4$,P5$
31280 PLAY C1E$,C1F$,C2X$,B1F$,C2E$,C2F$ ,P6$,R2$,P3$,Q4$,P5$
31290 PLAY C1E$,C1F$,C2X$,B1E$,C2E$,C2F$ ,P6$,P2$,P3$,Q4$,P5$
31300 PLAY C2E$,C2F$,C2Z$,B1F$,C1G$,C1H$ ,P1$,P2$,P3$,P4$,P5$,BP3$
31310 PLAY C1G$,C1H$,C2$ ,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
31320 PLAY C1G$,C1H$,C2$ ,B2E$,C3E$,C3F$ ,P6$,P2$,P3$,Q4$,P5$
31330 PLAY C1G$,C1H$,C2$ ,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
31340 PLAY C1G$,C1H$,C2Z$,B2G$,C3I$,C3J$ ,P6$,S2$,S3$,Q4$
31350 PLAY C4L$,C4R$,C2X$,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
31360 PLAY C4L$,C4R$,C2X$,B2E$,C3E$,C3F$ ,P6$,P2$,P3$,Q4$,P5$
31370 PLAY C4L$,C4R$,C2X$,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
31380 PLAY C4L$,C4R$,C2Y$,B2F$,C3G$,C3H$ ,T6$,S2$,S3$,S4$
31390 PLAY C4E$,C4F$,C2$,    ,C5L$,C5R$ ,R6$,P7$,P8$,P5$
31400 PLAY C4E$,C4F$,C2$,    ,C5E$,C5F$ ,   ,P7$,P8$
31410 PLAY C4E$,C4F$,C2$,B1$ ,C5L$,C5R$ ,   ,P7$,P8$,P5$
31420 PLAY C4G$,C4H$,C2$,    ,C5G$,C5H$ ,R6$,   ,   ,BP1$
31430 PLAY C4E$,C4F$,C2$,B3$,C5L$,C5R$ ,P6$,P7$,P8$ ,P5$
31440 PLAY C4E$,C4F$,C2$,B3$,C5E$,C5F$ ,P6$,P7$,P8$
31450 PLAY C4E$,C4F$,C2$,B3$,C5L$,C5R$ ,P6$,P7$,P8$
31460 PLAY C4E$,C4F$,C2$,B3$,C5E$,C5F$ ,Q6$,P7$,P8$
31470 PLAY     ,    ,E1L$,E1R$,C1G$,C1H$,P1$,P2$,P3$,SP1$,P5$
31480 PLAY     ,    ,E1L$,E1R$,C1G$,C1H$,P1$,P2$,P3$,SP1$
31490 PLAY C4E$,C4F$,E1L$,E1R$,E2L$,E2R$,P1$,P2$,P3$,SP1$
31500 PLAY C4E$,C4F$,E1E$,E1F$,E2L$,E2R$,S1$,S2$,S3$,SP1$,BP3$
31510 PLAY C4E$,C4F$,C7L$,C7R$,E2L$,E2R$,P6$,   ,,Q4$
31520 PLAY C4E$,C4F$,C7E$,C7E$,E2L$,E2R$,P6$,   ,,Q4$
31530 PLAY C4E$,C4F$,C7L$,C7R$,E2L$,E2R$,P6$,P2$,,Q4$
31540 PLAY C4E$,C4F$,C7F$,C7F$,E2L$,E2R$,Q6$,S2$,,S4$,BP1$
31550 PLAY C7L$,C7R$,C6L$,C6R$,E2L$,E2R$,P6$,P2$,P3$,Q4$
31560 PLAY C7E$,C7F$,C6E$,C6F$,E2L$,E2R$,P6$,P2$,P3$,Q4$
31570 PLAY C7L$,C7R$,C6L$,C6R$,E2L$,E2R$,P6$,P2$,P3$,Q4$
31580 PLAY     ,    ,    ,    ,E2L$,E2R$,R6$            ,BP1$,BP2$,BP3$
31590 PLAY     ,    ,    ,E4L$,E4R$,,P6$,,,Q4$,SP1$
31600 PLAY     ,    ,E3R$,E4L$,E4R$,,P6$,,,Q4$,SP1$
31610 PLAY     ,E3L$,E3R$,E4L$,E4R$,,P6$,,,Q4$,SP1$
31620 PLAY B3E$,E3L$,E3R$,E4L$,E4R$,,Q6$,,,S4$,SP1$
31630 PLAY B4$ ,E3L$,E3R$,A1L$,A1R$,E4$,P6$,P2$,P3$,Q4$
31640 PLAY B4$ ,E3L$,E3R$,A1E$,A1F$,E4$,P6$,P2$,P3$,Q4$
31650 PLAY B4$ ,E3L$,E3R$,A1L$,A1R$,E4$,P6$,P2$,P3$,Q4$
31660 PLAY B4$ ,E3L$,E3R$,A1G$,A1H$,E4$,P6$,P2$,P3$,Q4$,BP3$
31670 PLAY B4E$,E3L$,E3R$,A2L$,A2R$,E4$,P1$,P2$,P3$,P4$,SP1$
31680 PLAY B4F$,E3L$,E3R$,A2E$,A2F$,E4$,P1$,P2$,P3$,P4$,SP1$
31690 PLAY B4E$,E3L$,E3R$,A2L$,A2R$,E4$,P1$,P2$,P3$,P4$,SP1$
31700 PLAY B4F$,E3L$,E3R$,A2E$,A2F$,E4$,S1$,S2$,S3$,S4$,SP1$
31710 PLAY B4E$,E3L$,E3R$,A3L$,A3R$,E4$
31720 PLAY B4F$,E3L$,E3R$,A3E$,A3F$,E4$
31730 PLAY      E3L$,E3R$,A3G$,A3H$,E4L$,E4R$
31740 PLAY      E3E$,E3F$,A3I$,A3J$,E4L$,E4R$
31750 RETURN
31760 '
31770 '
31780 *S_73E
31790 'INDIAN CONTROL  [ throb mix ]
31800 '
31810 AL$="@114V9O4L16Q1" : AR$=AL$+"V3Q8"
31820 A1L$=AL$+"V7     ERARE8GERAERGR>E8< ERARE8GERAERGRDD# Q8"
31830 A1R$=AR$+"V3R8   ERARE8GERAERGR>E8< ERARE8GERAERGR    Q8"
31840 A1E$=AL$+"V6     RRARRRRERRRRGRRD#  RRARRRGERAREGRD#R Q8"
31850 A1F$=AR$+"V2Q4R8 RRARRRRERRRRGRRD#  RRARRRGERAREGR    Q8"
31860 A2L$=AL$+"@44Q3   A2&A8E8F8G8 &G2C4D4"
31870 A2R$=AR$+"@44Q8E5 A2&A8E8F8G8 &G2C4D90"
31880 A2E$=AL$+"@44Q3   E2&E4FRG8 &G2F4C#4 "
31890 A2F$=AR$+"@44Q8C5 E2&E4FRG8 &G2F4C90 "
31900 A2G$=AL$+"@44Q3   E2&E4FRG2 FRE8D8C8<A8"
31910 A2H$=AR$+"@44Q8C5 E2&E4FRG2 FRE8D8C90  "
31920 A3L$=AL$+"[@44Q3  >C4&C8<B4&B8&B4 G4&G8F4&F8C4 "
31930 A3R$=AR$+"[@44Q8G5>C4&C8<B4&B8&B4 G4&G8F4&F8C90"
31940 A3E$=AL$+"[@44Q3   F4&F8E4&E8&E4 &E4&E8 E8G8G#8A8B8"
31950 A3F$=AR$+"[@44Q8C5 F4&F8E4&E8&E4 &E4&E8 E8G8G#8A90 "
31960 A4L$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8<B8>C8< E2&E8 B8>C8D8"
31970 A4R$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8<B8>C8< E2&E8 B8>C90 "
31980 A4E$=AL$+"[@44Q4>   E8D#E4&E8&EE8>C8<BE &E2D4<B4 "
31990 A4F$=AR$+"[@44Q8>C5 E8D#E4&E8&EE8>C8<BE &E2D4<B90"
32000 A4G$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8D8E8  &E2&E8 F8G8A8"
32010 A4H$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8D8E8  &E2&E8 F8G90 "
32020 A4I$=AL$+"[@44Q4   >F8&FE8&EC<A&A4>ARAR F8&FE8&EC<E&F8G8G#32A32&AB8"
32030 A4J$=AR$+"[@44Q8C5 >F8&FE8&EC<A&A4>ARAR F8&FE8&EC<E&F8G8G#90"
32040 A4M$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8<B8>C8< E1       "
32050 A4N$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8<B8>C8< E2&E4&E90"
32060 '
32070 C2L$="@32 V7O3L16   R2R4 B8&B>D#32E32&E4 &E4 >(A#32B32R)O2D4 "
32080 C2R$="@39 V2O3L16R8 R2R4 B8&B>D#32E32&E4 &E4 >(A#32B32R)O2D8 "
32090 C2E$="@32 V7O3L16   R2R4 B8&B>D#32E32&E4 &E8 >A#32B32R O2D8&DF8&FA#8"
32100 C2F$="@39 V2O3L16R8 R2R4 B8&B>D#32E32&E4 &E8 >A#32B32R O2D8&DF8&F   "
32110 C3L$="@106V9O5L16Q8 <  ERBRABREBEAB8A#>BG E<RBRABREBEAB8A#B8 "
32120 C3R$="@106V4O5L16Q8 <CRERBRABREBEAB8A#>CG E<RBRABREBEAB8A#   "
32130 C3E$="@106V9O5L16Q8 <  ERBRRRRA >D<RBRRGAB >E<RBRABRRRBAB8DD#8"
32140 C3F$="@106V4O5L16Q8 <CRERBRRRRA >D<RBRRGAB >E<RBRABRRRBAB8D   "
32150 C4L$="@90V7O3L16Q1%L1  (GD>G<EG>AE<DEDGA>A<EGD) Q8"
32160 C4R$="@90V3O3L16Q1%R1R5GD>G<EG>AE<DEDGA>A<EGDGD>G<EG>AE<DEDGA>A90Q8"
32170 C4E$="@89V4O3L16Q8%L1 E2&E4F4 G2B4>C4"
32180 C4F$="@89V3O3L16Q8%R1 C1      D1"
32190 C4G$="@89V4O3L16Q8%L1 B2&B4A4G2F2  "
32200 C4H$="@89V3O3L16Q8%R1 G2&G4F4E2D2  "
32210 C5$= "@31V4O2L16Q1   AR>ECDRCERDGRERD<G AR>ECDRCERDGR<ERGR"
32220 C5E$="@31V4O2L16Q1   DR AFGRFARG>CR<ERER DR AFGRFARG>CRDRER"
32230 C5F$="@31V4O2L16Q1   CRGEFREGRFARBR>CR< FRGABR>CDREFRERDR"
32240 C5G$="@31V4O2L16Q1  >CR<BARGRFREFRCRDR  GRARBR>CDREFRERDR"
32250 C5H$="@31V4O2L16Q1   AR>ECDRCERDGRERD<G AR>ECDRCE"
32260 C6L$="@118V13O0L16C4>C<RRCC>C<C8>C8>C<G C4>C<RRCC>C<CRV8O4C<CV15O0CR"
32270 C6R$="@118V6 O0L16R8 C4>C<RRCC>C<C8>C8>C<G C4>C<RRCC>C<CRV3O4C<C"
32280 B1$= "@1  V9 O0L16Q8 RRGRRGRR GRRRRGC#D  D#RD#R RD#RR D#RRR D#RER"
32290 B1E$="@29 V11O1L16Q8 C2&C4G8A#8  C4 @32[[>C&C8<A# Q6RA#A#RGA#A#R Q8"
32300 B2$ ="@29 V9 O1L16Q8 E8GG#32A32&A>C&C2<G8  >C<A#RCRRRR G>>D<<GF&F8D8"
32310 B2E$="@1  V9 O0L16Q8  (@1ARRARRRR RRAR RR@92Q4>C<Q8 @38A  )"
32320 B2F$="@1  V7 O0L16Q8 >(@1DRRDRRRR RRDR RR@92Q4 C Q8 @38<A>)"
32330 B3$ ="@100V7 O1L16Q8  E1F1 "
32340 B3E$="@100V7 O1L16Q8  G2&G4F4G2G#4B4"
32350 '
32360 P1$= "@9V8 O0L16  CRRRRRRGCRRRRRCR  CRRRRRRRRRRRCRCR"
32370 P2$= "@9V6 O0L16 (GRCR @8O3GR @9O0RC G @8O3AR@9O0C@8O3GR@9O0RC)  "
32380 S2$= "@9V6 O0L16  GRCR @8O3GR @9O0RC G @8O3AR@9O0C@8O3GR@9O0RC G1"
32390 SS2$="@9V6 O0L16  GRCR@8O3G4RAR@9O0C@8O3GR@9O0RC GRCR@8O3G4R@9O0CRRC"
32400 P3$= "@9V4 O7L24 ((FRRFRF))4"
32410 S3$= "@9V4 O7L24  (FRRFRF) F"
32420 P4$= "@7V5 O7L16 (<C>CCD <<C>>C>B<<C>)4   "
32430 S4$= "@7V5 O7L16 (<C>CCD <<C>>C>B<<C>)<C> "
32440 P5$= "@7V6 O1L16  CRRR>C<RRCR>C<CRRR>C<R CRCR>C<RRCR>C<CRCR>C<R"
32450 BP1$="@2V2 O5L16  R1 (C>C<C>C<]) (]]C>C<)3 @1V4O0 GG"
32460 BP2$="@4V2 O6L16  R1 (CCC@7<C>@4]) CCO3CO6C O3CRC @9O0G32G32"
32470 '
32480 '
32490 PLAY C6L$,C6R$
32500 PLAY C6L$,C6R$
32510 PLAY C6L$,C6R$,A1E$,A1F$
32520 PLAY C6L$,C6R$,A1E$,A1F$,    ,,BP1$
32530 PLAY A1E$,A1F$,    ,C6L$,C6R$,,S2$
32540 PLAY A1E$,A1F$,    ,C6L$,C6R$,,SS2$,S3$,BP2$
32550 PLAY A1E$,A1F$,B1$ ,C6L$,C6R$,,P2$ ,P3$,P4$
32560 PLAY A1E$,A1F$,B1$ ,C6L$,C6R$,,S2$ ,S3$,S4$
32570 PLAY A1L$,A1R$,B1$ ,C2L$,C2R$,C6L$,P1$,P2$,P3$,P4$
32580 PLAY A1L$,A1R$,B1$ ,C2E$,C2F$,C6L$,P1$,P2$,P3$,P4$
32590 PLAY A1L$,A1R$,B1$ ,C2L$,C2R$,C6L$,P1$,P2$,P3$,P4$
32600 PLAY A1L$,A1R$,B1$ ,    ,    ,C6L$,P1$,S2$,P3$,P4$
32610 PLAY B2$ ,    ,    ,,,,P2$,   ,P4$
32620 PLAY B1E$,    ,    ,,,,S2$,   ,P4$
32630 PLAY B2E$,C4L$,C4R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
32640 PLAY B2E$,C4L$,C4R$,C3E$,C3F$,,P1$,P2$,P3$,P4$
32650 PLAY B2E$,C4L$,C4R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
32660 PLAY B2E$,C4L$,C4R$,C3E$,C3F$,,P1$,P2$,P3$,P4$
32670 PLAY B2E$,C4L$,C4R$,,,,P5$,P3$,P4$
32680 PLAY B2E$,C4L$,C4R$,,,,P5$,P3$,P4$,BP1$
32690 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
32700 PLAY B2F$,C4L$,C4R$,C5E$,A2E$,A2F$,P5$,P2$,P3$,P4$
32710 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
32720 PLAY B2F$,C4L$,C4R$,C5E$,A2G$,A2H$,P5$,P2$,P3$,P4$
32730 PLAY B3$ ,C4E$,C4F$,C5F$,A3L$,A3R$,   ,   ,P3$,P4$
32740 PLAY B3E$,C4G$,C4H$,C5G$,A3E$,A3F$,   ,   ,P3$,P4$,BP1$
32750 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
32760 PLAY B2F$,C4L$,C4R$,C5E$,A2E$,A2F$,P5$,P2$,P3$,P4$
32770 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
32780 PLAY B2F$,C4L$,C4R$,C5E$,A2G$,A2H$,P5$,S2$,P3$,P4$
32790 PLAY B2E$,C4L$,C4R$,C5$ ,A4L$,A4R$,,   ,P3$,P4$
32800 PLAY B2F$,C4L$,C4R$,C5E$,A4E$,A4F$,,   ,P3$,P4$
32810 PLAY B2E$,C4L$,C4R$,C5$ ,A4G$,A4H$,,   ,   ,P4$
32820 PLAY B2F$,C4L$,C4R$,C5E$,A4I$,A4J$
32830 PLAY     ,C6L$,C6R$,C5H$,A4M$,A4N$
32840 PLAY     ,C6L$,C6R$
32850 PLAY     ,C6L$,C6R$
32860 PLAY     ,    ,C6R$
32870 RETURN
32880 '
32890 '
32900 *S_74
32910 'LET THEM CALL IT JAZZ
32920 '
32930 AL$="@115V11O3L24Q5" : AR$=AL$+"V3R12"
32940 A0L$=AL$+"R1R2  RRRDRRDRRD8 Q8"
32950 A0R$=AR$+"R1R2  RRRDRRDRRD  Q8"
32960 A1L$=AL$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGGRR Q8"
32970 A1R$=AR$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGG   Q8"
32980 A1E$=AL$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFDC<B   Q8"
32990 A1F$=AR$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFD      Q8"
33000 A1G$=AL$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8D8 Q8"
33010 A1H$=AR$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8   Q8"
33020 A2L$=AL$+"@33 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRRGRAARARRGARR"
33030 A2R$=AR$+"@32 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRRGRAARARRGA  "
33040 A2E$=AL$+"@33 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRR>ERRD#RRDRR<ERR"
33050 A2F$=AR$+"@32 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRR>ERRD#RRDRR<E  "
33060 A2G$=AL$+"@33 ARRARRRRRRRR RRRRRRERRGRR  ARRARRRRRRRRRRRRRRRRRRRR"
33070 A2H$=AR$+"@32 ARRARRRRRRRR RRRRRRERRGRR  ARRARRRRRRRRRRRRRRRRRR  "
33080 A2I$=AL$+"@33 ERRERR>A<RD8EGRAG#RG8G#RRG ARRRRR G8&G12 A&A4 BRR>C8"
33090 A2J$=AR$+"@32 ARRE8 >A<RD8EGRAG#RG8G#RRG ARRRRR G8&G12 A&A4 BRR>C "
33100 A3L$=AL$+"@33Q8  B8&B12A6E8&E4 <B8>C8 D4&D8G4&G8E8F8"
33110 A3R$=AR$+"@39Q8  B8&B12A6E8&E4 <B8>C8 D4&D8G4&G8E8F"
33120 A3E$=AL$+"@33Q8  G4&G8C4&C8D8C8 <B8>C8D8<G8& G8G8A8B8"
33130 A3F$=AR$+"@39Q8  G4&G8C4&C8D8C8 <B8>C8D8<G8& G8G8A8B "
33140 A3G$=AL$+"@33Q8  C2&C4A4 G#4&G#8G4&G8F4  "
33150 A3H$=AR$+"@39Q8  C2&C4A4 G#4&G#8G4&G8F8&F"
33160 A3I$=AL$+"@33Q8  E4&E8F4&F8G4 F4&F8E4&E8<B4  "
33170 A3J$=AR$+"@39Q8  E4&E8F4&F8G4 F4&F8E4&E8<B8&B"
33180 AL$="@71V10O3L24Q8" : AR$=AL$+"V3R12"
33190 A4L$=AL$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGGRR Q8"
33200 A4R$=AR$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGG   Q8"
33210 A4E$=AL$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFDC<B   Q8"
33220 A4F$=AR$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFD      Q8"
33230 A4G$=AL$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8D8 Q8"
33240 A4H$=AR$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8   Q8"
33250 A4I$=AL$+"Q8V7 B1&B1"
33260 A4J$=AR$+"Q8V2 G1&G"
33270 '
33280 '
33290 C1L$="@24V2O3L12%L1 >C1&C1"
33300 C1R$="@24V2O3L12%R1  A1&A1"
33310 C1C$="@24V2O3L12%C   F1&F1"
33320 C1E$="@24V2O3L12%L1 B1&B2&B4>D4"
33330 C1F$="@24V2O3L12%R1 G1&G2&G4 B4"
33340 C1G$="@24V2O3L12%C  E1&E2&E4 G4"
33350 C1H$="@24V0O3L12%L1 >C1&C1&C4 L24@77<C"
33360 C1I$="@24V0O3L12%R1  A1&A1&A4 L24@77<A"
33370 C1J$="@24V0O3L12%C   F1&F1&F4 L24@77<F"
33380 C2L$="@24V4O3L24%R1 >(FRRFRR G8RRG RR CRRRCRRCR E<)"
33390 C2R$="@24V5O3L24%L1 >(DRRDRR E8RRE RR<ARRRARRAR>C )"
33400 C2C$="@24V4O3L24%C   (ARRARR B8RRB RR ERRRERRER G )"
33410 C2E$="@24V4O3L24%R1  (CRR<B>RC RRC<B>R<B>) C2 (CRR)4"
33420 C2F$="@24V4O3L24%L1  (ERR D RE RRE C R D ) E2 (ERR)4"
33430 C2G$="@24V5O3L24%C   (ARR G RA RRA E R G ) A2 (ARR)4"
33440 C3L$="@24V2O3L24%L1 >C1<B1" : C3E$="@24V2O3L24%L1 >C1 E4&E8 D4&D8<B4"
33450 C3R$="@24V2O3L24%R1  A1 G1" : C3F$="@24V2O3L24%R1  A1>C4&C8<B4&B8 G4"
33460 C3C$="@24V2O3L24%C   F1 E1" : C3G$="@24V2O3L24%C   F1 A4&A8 G4&G8 E4"
33470 C3H$="@24V2O3L24%L1 >C1 D2&D4E4"
33480 C3I$="@24V2O3L24%R1  A1 B2&B4B4"
33490 C3J$="@24V2O3L24%C   F1 G2&G4G#4"
33500 E1L$="@72V8O3L24     RRRBRR R4 >C8D8R8E4<A8R4G8G#8A8B8"
33510 E1R$="@72V2O3L24R5   RRRBRR R4 >C8D8R8E4<A8R4G8G#8A90 "
33520 E1E$="@72V8O3L24    >D1 CR<BRAR G#GF#G8A8 >G4A8"
33530 E1F$="@72V7O3L24A5V2>D1 CR<BRAR G#GF#G8A8 >G8  "
33540 E1G$="@72V8O3L24    >B8  DRR RRRC4 D4ERRRRRD4&D8 <G4A4 "
33550 E1H$="@72V7O3L24>E5 &E8V2DRR RRRC4 D4ERRRRRD4&D8 <G4A90"
33560 E1I$="@72V8O3L24     B4&B8>C2<DRR>E4&E8D4&D8<A4"
33570 E1J$="@72V2O3L24R5   B4&B8>C2<DRR>E4&E8D4&D8<A90"
33580 E2L$="@72V8O4L24   R8GRRG4FRRRRRFRRE4FRRG4 [[<B4>D4"
33590 E2R$="@72V7O4L24   R8ERRE4DRRRRRDRRC4DRRE4 [[<G4 B4"
33600 E2E$="@72V8O4L24   R8GRRG4FRRRRRERR C2&C8 [[<B4>D4"
33610 E2F$="@72V7O4L24   R8ERRE4DRRRRRCRR<A2&A8 [[ G4 B4"
33620 E2G$="@72V10O4L24   C1<B4&B8>C4&C8D4"
33630 E2H$="@72V9 O4L24  <A1 G4&G8 A4&A8B4"
33640 E3$ ="@72V2O3L24R5  RRRBRR R4 >C8D8R8E4<A1"
33650 B1$= "@28V10O2L24Q6 G8F6&F12 G12R6R8DRFG8  R2 R4 D12DD8 Q8"
33660 B2$= "@28V11O2L24Q6 D4D4R4 CRCG8  ARRG8A4     &A4>CRRC8"
33670 B2E$="@28V11O2L24Q6 D4D4R4 CRCG8  ARRA8GRA8&A  G#8G8E8D#8"
33680 B2F$="@28V11O2L24Q6 D4D4R4 CRCG8  A2 DRRD#8ERGA8"
33690 B3$ ="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRRRB ERRE8ERERRR C8D8D#8E8"
33700 B3E$="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRGRB A4ARRG4GRRE4"
33710 B3F$="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRRRB GRRG8GRGRRG@71Q8>B8G#8E8D8"
33720 '
33730 P1$= "@8V11O1L24  GRRRRRGRRRRRGRRRRRGRRRRR GRRRRRGRRRRRGRRRRRGRRGRR"
33740 Q1$= "@8V11O1L24  GRRRRRGRRRRRGRRRRRGRRGRG GRRRRRGRRRRGGRRGRRGRRGRR"
33750 R1$= "@1V6 O0L24  GRRGRRRRGRRGRRGRRRRRRGRG GRRRRGRRGRRGRRGRRRRRRGRR"
33760 S1$= "@8V11O1L24  GRRRRRRRRRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRCRRCRC"
33770 P2$= "@8V11O3L12  RRRGRR RRRGRR    RRRGRR RGR L24 GRR V3GRG"
33780 S2$= "@8V11O3L12  RRRGRR RRRGRR    RRRRRR RRR     RRR      "
33790 P3$= "@2V4 O7L24  (FRRFRF)3FRR FRF48F48 (FRRFRF)3 FRR@6<<[[C8]]>>"
33800 S3$= "@2V4 O7L24  (FRRFRF)3FRR FRF48F48 F1"
33810 PP1$="@3V12O2L24  (CRRCRR RRCRRC CRRCRC RRC>%R5G%L5C<C %C)"
33820 PP2$="@10V4O4L24  (RRR@10O4ARARRRARR @4O3CRR%C@10O4ARRAR<A>ARR)"
33830 BP1$="@2V1 O7L24  (GRRGRR])3GRRGRG] (GRRGRG)  @8V9O2 GRRRRG GRRGRR"
33840 BP2$="@7V12O8L24  R1R2   %R9CRR %L9RRR %R9RRR%CRRR "
33850 BP3$="@4V12O5L24  R1R2   %R9C8 %L9CCC %R9CCC %L5C%R5C%CC"
33860 '
33870 '
33880 PLAY ,,,,,,,BP1$
33890 PLAY B1$,C1L$,C1R$,C1C$,    ,    ,P1$,P2$,P3$,PP1$
33900 PLAY B1$,C1E$,C1F$,C1G$,    ,    ,Q1$,P2$,P3$,PP1$
33910 PLAY B1$,C1L$,C1R$,C1C$,    ,    ,P1$,P2$,P3$,PP1$
33920 PLAY B1$,C1E$,C1F$,C1G$,A0L$,A0R$,Q1$,S2$,P3$,PP1$,BP2$
33930 PLAY B1$,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$,PP1$
33940 PLAY B1$,C1E$,C1F$,C1G$,A1E$,A1F$,Q1$,P2$,P3$,PP1$
33950 PLAY B1$,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$,PP1$
33960 PLAY B1$,C1E$,C1F$,C1G$,A1G$,A1H$,Q1$,S2$,S3$,PP1$,BP3$
33970 PLAY     ,C2L$,C2R$,C2C$,    ,    ,R1$,P2$
33980 PLAY     ,C2L$,C2R$,C2C$,    ,    ,R1$,P2$,PP2$
33990 PLAY B2$ ,C2L$,C2R$,C2C$,A2G$,A2H$,R1$,P2$,P3$,PP2$
34000 PLAY B2E$,C2L$,C2R$,C2C$,A2G$,A2H$,R1$,S2$,S3$,PP2$
34010 PLAY B2$ ,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,P2$,P3$,PP2$
34020 PLAY B2E$,C2L$,C2R$,C2C$,A2E$,A2F$,Q1$,P2$,P3$,PP2$
34030 PLAY B2$ ,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,P2$,P3$,PP2$
34040 PLAY B2E$,C2E$,C2F$,C2G$,A2I$,A2G$,S1$,   ,   ,PP2$
34050 PLAY B3$ ,C3L$,C3R$,C3C$,A3L$,A3R$,R1$,P2$,P3$,PP2$
34060 PLAY B3$ ,C3L$,C3R$,C3C$,A3E$,A3F$,R1$,P2$,P3$,PP2$
34070 PLAY B3E$,C3E$,C3F$,C3G$,A3G$,A3H$,R1$,P2$,P3$,PP2$
34080 PLAY B3F$,C3H$,C3I$,C3J$,A3I$,A3J$,S1$,S2$,S3$,PP2$,BP2$
34090 PLAY B1$ ,C1L$,C1R$,C1C$,E1L$,E1R$,   ,  ,P3$
34100 PLAY B1$ ,C1E$,C1F$,C1G$,E1E$,E1F$,   ,  ,P3$
34110 PLAY B1$ ,C1L$,C1R$,C1C$,E1G$,E1H$,   ,  ,P3$
34120 PLAY B1$ ,C1E$,C1F$,C1G$,E1I$,E1J$,   ,  ,P3$,BP2$
34130 PLAY B1$ ,C1L$,C1R$,C1C$,E2L$,E2R$,S1$,S2$,S3$,PP1$
34140 PLAY B1$ ,C1E$,C1F$,C1G$,E2E$,E2F$,S1$,S2$,S3$,PP1$
34150 PLAY B1$ ,C1L$,C1R$,C1C$,E2L$,E2R$,P1$,P2$,P3$,PP1$
34160 PLAY B1$ ,C1E$,C1F$,C1G$,E2G$,E2H$,Q1$,P2$,P3$,PP1$,BP1$
34170 PLAY B1$ ,C1L$,C1R$,C1C$,A4L$,A4R$,P1$,P2$,P3$,PP1$
34180 PLAY B1$ ,C1E$,C1F$,C1G$,A4E$,A4F$,Q1$,P2$,P3$,PP1$
34190 PLAY B1$ ,C1L$,C1R$,C1C$,A4L$,A4R$,P1$,P2$,P3$,PP1$
34200 PLAY B1$ ,C1E$,C1F$,C1G$,A4G$,A4H$,Q1$,S2$,S3$,PP1$
34210 '
34220 PLAY C1H$,C1I$,C1J$,A4I$,A4J$,E3$
34230 RETURN
34240 '
34250 '
34260 *S_75
34270 'BARE FEET  [ Naked rhythm edit ]
34280 '
34290 AL$="@72V10O2L16Q8" : AR$=AL$+"V4" : AE$=AL$+"["
34300 A1L$=AL$+"  CR>G4<BR>G4<ER>G<B GR>G4<BR>G4<AR>G8<"
34310 A1R$=AE$+" >RR B4 RR B4 RR B8  RR B4 RR B4 RR>E8 "
34320 A1E$=AL$+"  CR>G4 ER G4 DRGB  <GR>G4 CR G4 DR G8<"
34330 A1F$=AE$+" >RR B4 RR B4 RRB8   RR B4 RR B4 RR>C8  "
34340 A2L$=AL$+" >B1>C2&C8D8&D4"
34350 A2R$=AE$+" >G1 A2&A8B8&B4"
34360 A2C$=AE$+" >E1 F2&F8G8&G4"
34370 A2E$=AL$+" >G1 &G2&G8 A8&A4"    : A2H$=AL$+" >G1 &G2&G8 F#8&F#4"
34380 A2F$=AE$+" >E1 &E2&E8 F#8&F#4"  : A2I$=AL$+" >E1 &E2&E8 D8&D4"
34390 A2G$=AE$+" >C1 &C2&C8 D8&D4"    : A2J$=AL$+" >C1 &C2&C8<B8&B4"
34400 A2K$=AL$+" >G1 &G1"
34410 A2M$=AE$+" >E1 &E1"
34420 A2N$=AE$+" >C1 &C1"
34430 A3L$=AL$+" >   A8>D8<B>E8DG8EA8GB8< A8>D8<B>E8DG8EB8AGE "
34440 A3R$=AR$+" >E8 A8>D8<B>E8DG8EA8GB8< A8>D8<B>E8DG8EB8A   "
34450 A3E$=AL$+" >   A8>D8<B>E8DG8EA8GB8< A8>D8&D DD8R@41<D@72>D<@44B<A8B8"
34460 A3F$=AR$+" >E8 A8>D8<B>E8DG8EA8GB8< A8>D8&D DD  @41<D@72>D<@44B<A8B8"
34470 A4L$=AL$+"@44Q8%R2>    B>RBR>ERRRARRGRRA<<G A8>BR>ERRRARRGRRAR"
34480 A4R$=AR$+"@44Q8%L2> G8 B>RBR>ERRRARRGRR<<ER A8>BR>ERRRARRGRR  "
34490 '
34500 C1L$="@5V9O3L16Q1%L5   CCRRCCCRCRRCCRRC %R5 CRCRC>C<CRCRRCCRCR %C"
34510 C1R$="@5V4O3L16Q1%R5R8 CCRRCCCRCRRCCRRC %L5 CRCRC>C<CRCRRCCR   %C"
34520 C2$ ="@37V6O4L16Q1(CRRR)3 CR>C<C RCR<C>(CRRR)3 Q8"
34530 C2E$="@37V6O4L16Q1CR>CR<C>C<C>CRCR<C>C<C>CR<RCCRC>C<C>CR<CRC>C<CCRQ8"
34540 C2F$="@37V2O4L16Q1R5CR>CR<C>C<C>CRCR<C>C<C>CR<RCCRC>C<C>CR<CRC>C90Q8"
34550 C3L$="@44V12O5L16Q1     DRRRE4R4B>B<RE  R4G4RRR>G<G8R<B Q8"
34560 C3R$="@44V6 O5L16Q1<B5> DRRRE4R4B>B<RE  R4G4RRR>G<G90   Q8"
34570 C3E$="@44V12O5L16Q1     D2RRE8RARRR RRG4 RRR>G<GR(%R5A#32%L5B32) Q8"
34580 C3F$="@44V6 O5L16Q1<B5> D2RRE8RARRR RRG4 RRR>G<G90               Q8"
34590 C3G$="@44V12O5L16Q1     D2RRE8RARR RRRGRRRR Q8 @94V8<<B4>D4  "
34600 C3H$="@44V6 O5L16Q1<B5> D2RRE8RARR RRRGRRRR Q8 @94V2<<B4>D90 "
34610 C4L$="@71V8 O3L16Q8     EGRARB>D8 &D4&D8CD <B2A4B4"
34620 C4R$="@71V2 O3L16Q8 R8  EGRARB>D8 &D4&D8CD <B2A4B8"
34630 C4E$="@71V8 O3L16Q8     G4&G8D4&D8E4 &E2 B4>D4"
34640 C4F$="@71V2 O3L16Q8 R8  G4&G8D4&D8E4 &E2 B4>D8"
34650 C4G$="@71V8 O3L16Q8    >G1&G2&G8 "
34660 C4H$="@71V2 O3L16Q8 R8 >G1&G2&G8 "
34670 E1L$="@44V5O5L16Q1RR(C#R)3<BR>C#<B>B8>C#<G#RR(C#R)3<BR>C#<B>B8>C#<G#"
34680 E1R$="@44V1O5L16Q1E5 RR(C#R)3<BR>C#<B>B8>C#<G#RR(C#R)3<BR>C#<B>B90"
34690 B1$ ="@88V8 O0L16Q8  >C1<G1"
34700 B1E$="@88V11O0L16Q8  >CR>C<CRRCGRCRC<G8>C  <GGRG>G<DG8&G>D8&D<G8&GB"
34710 B1F$="@88V12O0L16Q8  F1&F2&F4 %L9F%R9F%CF8"
34720 B1G$="@88V12O0L16Q4  R4G8&GA RRRRERGR  R4G8&GA RRRRG4 Q8"
34730 B2$ ="@88V8 O0L16Q8 >E1D2&D8<A4&A8"
34740 B2E$="@88V8 O0L16Q8 >C1&C2&C8D4&D8"
34750 B2F$="@88V8 O0L16Q8 >C1 R2R4  ]]<ABBB"
34760 B2G$="@88V8 O0L16Q8 >C1&C1"
34770 B3$ ="@88V11O0L16Q8 E>EE8>ER<<B>D<E>E<GAA8B8>E<E>E8>ER<<B>D<EDG8A8B8"
34780 B3E$="@88V11O0L16Q8 E>EE8>ER<<B>D<E>E<GAA8B8 E2 @41V7 >A>AAAA<A>AA#"
34790 B3F$="@41V7 O2L16Q8 BRRRBRRRBRRA Q1BRAA#Q8 BRRRBRRRBRRRBRBR"
34800 B3G$="@41V7 O2L16Q8 BRRRBRRRBRRA Q1BRAA#Q8 BRRRRRRRRRARARAR"
34810 B4$ ="@29V6 O1L16Q3 >DEEEE<E>EE D4<D>DDD ERR<D>DDDD DDDD<B>DDD Q8"
34820 B4E$="@29V6 O1L16Q6 >DEEEE<E>EED8B<A#8A8B> DEEEE<E>EED8B<A#8A8>A Q8"
34830 B4F$="@29V8 O1L16Q4  E1&E2 RRRR @88Q8<ABBB "
34840 '
34850 P1$= "@9 V8 O0L16  GRRRGRRGGRRRGRRR     GRRRGRRRGRRRGRGR   "
34860 S1$= "@9 V8 O0L16  ERRRRRRRRRRRRRRR     RRRRRRRRRRRRERER   "
34870 P2$= "@1 V11O2L16  RRRRBRRRRBRRRRRB     RRRRBRRRRGRRBRV3BB "
34880 S2$= "@1 V11O2L16  RRRRBRRRRBRRRRRB     RRRRRRRRRRRRRRRR   "
34890 P3$= "@3 V10O2L16  RRBRRERRB4CRR@7>B<@3 ERGRRERR@7>G<@3BRRCRRB"
34900 S3$= "@3 V10O2L16  RRBRRERRB4CRR@7>B<@3 E1"
34910 P4$= "@8 V5 O5L16  RRRCRRCRRCRRCRRB     CRRCRRCRRCRRCRCR"
34920 S4$= "@8 V5 O5L16  RRRCRRCRRCRRCRRB     CRRRRRRRRRRRRRCC"
34930 P5$= "@1 V6 O0L16  GRRRGRRRGRRRGRRR     GRRRGRRRGRRRGRRR"
34940 S5$= "@1 V6 O0L16  GRRRGRRRGRRRGRRR     GRRRRRRRRRRR[CGGG"
34950 SS5$="@1 V6 O0L16  GRRRRRRRRRRRRRRR     RRRRRRRRRRRRRRRR"
34960 P6$= "@9 V6 O6L16 ((@9V4FR @6>C8<)3 @9V4FF @6]]>C8<[[ )"
34970 SP1$="@11V7 O0L16  C8&CC&C2>R8C8<        C8&CC&C2>C4     "
34980 '
34990 '
35000 '
35010 PLAY     ,A1L$,A1R$
35020 PLAY     ,A1E$,A1F$
35030 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,C2$ ,P1$,P3$
35040 PLAY B1$ ,A1E$,A1F$,    ,C1R$,C2$ ,P1$,P3$
35050 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$,SP1$
35060 PLAY B1E$,A1E$,A1F$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$
35070 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$
35080 PLAY B1E$,A1E$,A1F$,C1L$,C1R$,C2E$,S1$,S2$,S3$,S4$
35090 PLAY B1$ ,A1L$,A1R$,C1R$,C2E$,C2F$,P3$,SP1$
35100 PLAY B1$ ,A1E$,A1F$,C1R$,C2E$,C2F$,P3$
35110 PLAY B1$ ,A1L$,A1R$,C1R$,C2E$,C2F$,P3$,SP1$
35120 PLAY B1$ ,A1E$,A1F$,C1R$,C2E$,C2F$,P3$
35130 PLAY B1$ ,    ,C1L$,C1R$,C2E$,C2F$,P3$,SP1$
35140 PLAY B1F$,    ,C1L$,C1R$,C2E$,C2F$,P3$
35150 PLAY B2$ ,    ,    ,C1R$,    ,C2F$,P3$,SP1$
35160 PLAY B2F$,    ,    ,C1R$,    ,    ,P3$,BP1$
35170 PLAY B2$ ,A2L$,A2R$,A2C$,C1L$,C1R$,P5$,P3$,P6$,SP1$
35180 PLAY B2E$,A2E$,A2F$,A2G$,C1L$,C1R$,P5$,P3$,P6$
35190 PLAY B2$ ,A2L$,A2R$,A2C$,C1L$,C1R$,P5$,P3$,P6$,SP1$
35200 PLAY B2F$,A2H$,A2I$,A2J$,C1L$,C1R$,S5$,P3$,P6$
35210 PLAY B3$ ,A3L$,A3R$,C1L$,C1R$,,P5$ ,P3$,P6$,SP1$
35220 PLAY B3$ ,A3E$,A3F$,C1L$,C1R$,,P5$ ,P3$,P6$
35230 PLAY B3$ ,A3L$,A3R$,C1L$,C1R$,,P5$ ,P3$,P6$,SP1$
35240 PLAY B3E$,A3E$,A3F$,C1L$,C1R$,,S5$ ,S3$
35250 PLAY B3F$,A4L$,A4R$,    ,    ,   ,SS5$
35260 PLAY B3F$,A4L$,A4R$,    ,    ,   ,P5$
35270 PLAY B3F$,A4L$,A4R$,    ,    ,B4$,SS5$
35280 PLAY B3G$,A4L$,A4R$,    ,    ,B4$,S5$
35290 PLAY B3F$,A4L$,A4R$,C3L$,C3R$,B4E$,P5$ ,P6$
35300 PLAY B3F$,A4L$,A4R$,C3E$,C3F$,B4E$,P5$ ,P6$
35310 PLAY B3F$,A4L$,A4R$,C3L$,C3R$,B4E$,P5$ ,P6$
35320 PLAY B3G$,A4L$,A4R$,C3E$,C3F$,B4E$,P5$ ,P6$
35330 PLAY B4$ ,    ,    ,C3L$,C3R$,    ,P5$ ,P6$
35340 PLAY B4$ ,    ,    ,C3E$,C3F$,    ,P5$ ,P6$
35350 PLAY B4$ ,    ,    ,C3L$,C3R$,    ,SS5$,P6$
35360 PLAY B4F$,    ,    ,C3G$,C3H$,    ,SS5$
35370 PLAY B2$ ,A2L$,A2R$,A2C$,C4L$,C4R$,P5$ ,P3$,P6$,SP1$
35380 PLAY B2E$,A2E$,A2F$,A2G$,C4E$,C4F$,P5$ ,P3$,P6$
35390 PLAY B2$ ,A2L$,A2R$,A2C$,C4L$,C4R$,P5$ ,P3$,P6$,SP1$
35400 PLAY B2G$,A2K$,A2M$,A2N$,C4G$,C4H$,SS5$,S3$,S6$
35410 RETURN
35420 '
35430 '
35440 *S_76E
35450 'ETERNAL ETHER  [ Lambda mix ]
35460 '
35470 AL$="@71V10O4L16Q8%C" : AR$=AL$+"[%R5" : AC$=AL$+"V3%L5"
35480 A1L$=AL$+"   A2&A4AGE8  D8 E4 C4 CRCD EG"
35490 A1R$=AR$+"   E2&E4EDC8 <B8>C4<G4 GRGB>CE"
35500 A1C$=AC$+"C5 A2&A4AGE8  D8 E4 C4 CRC90  "
35510 A1E$=AL$+"   A1 @71Q8<EGAB>D2E4 "
35520 A1F$=AR$+"   E1 @71Q8<CDEG A2B4 "
35530 A1G$=AC$+"C5 A1 @71Q8<EGAB>D2E90"
35540 A1H$=AL$+"   A2&A8>C8D8 E8<GEG2 <A8>C8D8"
35550 A1I$=AR$+"   E2&E8 A8B8>C8<DCD2 <E8 G8B8"
35560 A1J$=AC$+"C5 A2&A8>C8D8 E8<GEG2 <A8>C90 "
35570 A2L$=AL$+"   F#32G32&G&G8&G2FE D8 &D2&D8 C8D8 E8 "
35580 A2R$=AR$+"   D#32E32&E&E8&E2DC<B8 &B2&B8 A8B8>C8 "
35590 A2C$=AC$+"C5 F#32G32&G&G8&G2FE D8 &D2&D8 C8D90   "
35600 A2E$=AL$+"  <G4&G8A4&A8>C4 D2&D4 E8F8"
35610 A2F$=AR$+"  <E4&E8F4&F8 A4 B2&B4>C8D8"
35620 A2G$=AC$+"<C5G4&G8A4&A8>C4 D2&D4 E90 "
35630 A2H$=AL$+"    E1 D4&D8   E4&E8F4 "
35640 A2I$=AR$+"    C1<A#4&A#8>C4&C8D4 "
35650 A2J$=AC$+"<A5>E1 D4&D8   E4&E8F90"
35660 A2K$=AL$+"    C1&C2 F2    "
35670 A2M$=AR$+"   <A1&A2>D2    "
35680 A2N$=AC$+"<F5>C1&C2 F4&F90"
35690 A3L$=AL$+"     GAG8>D2<E4 E32F32&FE8 D8<A4>D8  E8F8"
35700 A3R$=AR$+"     DED8 A#2C4 C32D32&DC8<A8 D4 A#8>C8D8"
35710 A3C$=AC$+"<A#5>GAG8>D2<E4 E32F32&FE8D8<A4>D8   E90 "
35720 A3E$=AL$+"     GAG8>D4&D8   F8E8 C8 <A8&AG8GG#32A32&A&A8 D4D8"
35730 A3F$=AR$+"     DED8 A#4&A#8>D8C8<G8  F8&FE8ED#32F32&F&F8<A4A8"
35740 A3G$=AC$+"<A#5>GAG8>D4&D8   F8E8 C8 <A8&AG8GG#32A32&A&A8 D90 "
35750 A3H$=AL$+"     GAG8>D4&D8   F8E8 C8 D8<A8>C8<G4A8F8G8"
35760 A3I$=AR$+"     DED8 A#4&A#8>D8C8<G8 A8 E8 G8 D4E8C8D8"
35770 A3J$=AC$+"<A#5>GAG8>D4&D8   F8E8 C8 D8<A8>C8<G4A8F90 "
35780 A3K$=AL$+"     A4F8G4 &G8&G4 &G2 F8&FE8&E C8"
35790 A3M$=AR$+"     F4C8D4 &D8&D4 &D2 D8&DC8&C<G8"
35800 A3N$=AC$+" D5  A4F8G4 &G8&G4 &G2 F8&FE90    "
35810 A4L$=AL$+"    <A1&A4>C4F4    "
35820 A4R$=AR$+"    <E1&E4 G4D4    "
35830 A4C$=AC$+"<C5  A1&A4>C4F90"
35840 A4E$=AL$+"     E4&E8G4&G8F8E8 &E4&E8 <B>C<RBG8A32B32&B>D8"
35850 A4F$=AR$+"     C4&C8E4&E8D8C8 &C4&C8 <G A RGD8E32G32&G B8"
35860 A4G$=AC$+"<G5> E4&E8G4&G8F8E8 &E4&E8 <B>C<RBG8A32B90     "
35870 A4H$=AL$+"     C2&C8 G8&GF8&F E4&E8F2&F8"
35880 A4I$=AR$+"   < A2&A8>E8&ED8&D C4&C8D2&D8"
35890 A4J$=AC$+"<F5> C2&C8 G8&GF8&F E4&E8F4&F8"
35900 A4K$=AL$+"     G8&G C8&C<B8&B4>C8 <A2B2"
35910 A4M$=AR$+"     E8&E<A8&A G8&G4 A8  F2G2"
35920 A4N$=AC$+" C5  G8&G C8&C<B8&B4>C8 <A2B4"
35930 A5L$=AL$+"[[     C2&C4 GRRR F8&FE8&EDR C8&C<B8&B>E8"
35940 A5R$=AC$+"[[<A5> C2&C4 GRRR F8&FE8&EDR C8&C<B90    "
35950 A5E$=AL$+"[[[<    A4>>CRRR<BRRA#RRAR G#2 E8&EG#RR<B8"
35960 A5F$=AC$+"[[[<E5  A4>>CRRR<BRRA#RRAR G#2 E8&EG#     "
35970 A5G$=AL$+"[[[[     C1&C1"
35980 A5H$=AC$+"[[[[<A5 >C1&C2"
35990 '
36000 C1L$="@118V5O2L16%R9   A<C>AE4C8A8EC8EG A<C>AE4C8A8E@21>G#  "
36010 C1R$="@118V1O2L16%L9R5 A<C>AE4C8A8EC8EG A<C>AE4C8A8E@21>G#90"
36020 C1E$="@118V5O2L16%R9  A<C>AE4C8A8EC8>@21A<@118G A<C>AE4C8A8E<EC8&C"
36030 C1F$="@118V1O2L16%L9R5A<C>AE4C8A8EC8>@21A<@118G A<C>AE4C8A8E<E90  "
36040 C2L$="@21V7O3L16%L5   RRARRERRGA8&AAGE8  DRG#4E4D8E8G8 "
36050 C2R$="@21V3O3L16%R5R8 RRARRERRGA8&AAGE8  DRG#4E4D8E90  "
36060 C2E$="@21V7O3L16%L5   <A4>A8&A>A&A8<D#8E8G#8 @46[[G#4&G#8A4&A8B4 "
36070 C2F$="@21V3O3L16%R5R8 <A4>A8&A>A&A8<D#8E8G#8 @46[[G#4&G#8A4&A8B90"
36080 C2G$="@21V7O3L16%L5   E4&E8>E4<E8D8E8 C2&C4G4 "
36090 C2H$="@21V3O3L16%R5R8 E4&E8>E4<E8D8E8 C2&C4G90 "
36100 C2I$="@21V7O3L16%L5   E2&E8D#8E8G8 G#2&G#4B4"
36110 C2J$="@21V3O3L16%R5R8 E2&E8D#8E8G8 G#2&G#4B90"
36120 C3L$="@21V7O3L16%C    ABAGA4&A8<G8A8>C8 D4CRD4 E8 D8C8"
36130 C3R$="@21V6O3L16%R5   EGEDE4&E8<D8E8 G8 A4GRA4>C8<A8G8"
36140 C3C$="@21V3O3L16%L5R8 ABAGA4&A8<G8A8>C8 D4CRD4 E8 D8  "
36150 C3E$="@21V6O3L16%C    E4&E8 V3 GRRRAR>V2CRDRER"
36160 C3F$="@21V5O3L16%R5   C1                    "
36170 C3G$="@21V1O3L16%L5R5 E4&E8 V1 GRRRAR"
36180 B1L$="@11V7O2L16   F4>C8&C<BRRF8>C8<B8 E4>E8&ED8&DC8<B8>D8"
36190 B1R$="@11V2O2L16R5 F4>C8&C<BRRF8>C8<B8 E4>E8&ED8&DC8<B90  "
36200 B1E$="@11V7O2L16   EA4RARR>CRRDRCR  EFG8&G4&G8 FEFED8"
36210 B1F$="@11V2O2L16R5 EA4RARR>CRRDRCR  EFG8&G4&G8 FEF90 "
36220 B1G$="@11V7O2L16   ((Q1FQ8F8 Q1>A<Q8F8 [) )Q1FQ8F8&F V7F#8A8"
36230 B1H$="@11V2O2L16R8 ((Q1FQ8F8 Q1>A<Q8F8 [) )Q1FQ8F8&F V2F#8  "
36240 B2L$="@11V7O2L16   <G8&GG>G4&GG<G8>F8EC <D8&DD>D4&D<D8>D E8F8"
36250 B2R$="@11V2O2L16R8 <G8&GG>G4&GG<G8>F8EC <D8&DD>D4&D<D8>D E8  "
36260 B2E$="@11V7O2L16   <G8&GG>G4&GG<G8>F8EC  D8&DAD8 CRRC8<CG>C<GA> "
36270 B2F$="@11V2O2L16R8 <G8&GG>G4&GG<G8>F8EC  D8&DAD8 CRRC8<CG>C     "
36280 B2G$="@11V7O2L16   <A#8&A#A# RG#A#8 &A#2 @11  A4RARA>C<C8&C>D4"
36290 B2H$="@11V2O2L16R8 <A#8&A#A# RG#A#8 &A#2 @41> A4RARA>C<C8&C>D8"
36300 B3L$="@11V7O2L16   <FRRF>CRR<DRRRR>Q2DED<Q8E GRRG>DRR<GRRGR>C8<B8"
36310 B3R$="@11V2O2L16R8 <FRRF>CRR<DRRRR>Q2DED<Q8E GRRG>DRR<GRRGR>C8<"
36320 B4L$="@11V7O2L16   <ARRA ERRB >CRRR RCGC D8&D<A8&A>D8< ERRG8&GG#8"
36330 B4R$="@11V2O2L16R8 <ARRA ERRB >CRRR RCGC D8&D<A8&A>D8< ERRG8&G   "
36340 B4E$="@11V7O2L16   <FRRFRRRR RRR<F>F8C8  ERRERRERRERRE8G8"
36350 B4F$="@11V2O2L16R8 <FRRFRRRR RRR<F>F8C8  ERRERRERRERRE90"
36360 B5L$="@11V6O2L16   <F1>C4CR<E4ERG4 "
36370 B5R$="@11V2O2L16R8 <F1>C4CR<E4ERG90"
36380 B5E$="@11V5O2L16    F1"
36390 B5F$="@11V1O2L16R8  F1"
36400 '
36410 P1$= "@7 V15O1L16 ERRRERRRRRERRRER      ERRRERRRRRERERRR"
36420 S1$= "@7 V15O1L16 ERRRERRRRRERRRER      ERRRRRRRRR<%R5ERR%L5E@1V5G"
36430 SS1$="@7 V15O1L16 ERRRRRRRRRRRRRRR V5   RRRRRRRRRR<%R5GR%L5GR%CRR"
36440 P2$= "@8 V3 O2L16 RGRRGRRRRGRRGRRG      RGRRGRR>G<RGRRGRV1GG"
36450 P3$= "@6 V8 O8L16 (RR@6C@9FRR@6C@9C@6C@9CRR@6C@9FRF) "
36460 S3$= "@6 V8 O8L16  RR@6C@9FRR@6C@9C@6C@9CRR@6C@9FRF  "
36470 P4$= "   V8 O4L16 (@4GRGR@7G@4<<C>>GR)3 @4GRGR@7G@9>>V3A32F32F<<@7G"
36480 S4$= "   V8 O4L16 (@4GRGR@7G@4<<C>>GR)  @4G"
36490 P5$= "@11V4 O0L16 G2&G4&G8 %R9G%L9R %C  G1"
36500 P6$= "@1 V3 O0L16 GRRRGRRRGRRRGRRR      GRRRGRRRGRRRGRRR"
36510 S6$= "@1 V2 O0L16 G"
36520 '
36530 '
36540 '
36550 PLAY B1L$,B1R$,A1L$,A1R$,A1C$
36560 PLAY B1L$,B1R$,A1E$,A1F$,A1G$
36570 PLAY B1L$,B1R$,A1H$,A1I$,A1J$
36580 PLAY B1L$,B1R$,A1E$,A1F$,A1G$
36590 PLAY B1L$,B1R$,A2L$,A2R$,A2C$,,P4$
36600 PLAY B1L$,B1R$,A2E$,A2F$,A2G$,,P3$,P4$
36610 PLAY B1E$,B1F$,A2H$,A2I$,A2J$,,P1$,P3$,P4$
36620 PLAY B1G$,B1H$,A2K$,A2M$,A2N$,,S1$,S3$,S4$
36630 PLAY B2L$,B2R$,A3L$,A3R$,A3C$,,P1$ ,P2$,P3$,P4$,P5$
36640 PLAY B2L$,B2R$,A3E$,A3F$,A3G$,,P1$ ,P2$,P3$,P4$
36650 PLAY B2L$,B2R$,A3L$,A3R$,A3C$,,P1$ ,P2$,P3$,P4$,P5$
36660 PLAY B2E$,B2F$,A3H$,A3I$,A3J$,,P1$ ,P2$,P3$,P4$
36670 PLAY B2G$,B2H$,A3K$,A3M$,A3N$,,SS1$
36680 PLAY B3L$,B3R$,A4L$,A4R$,A4C$,,P1$,P2$,P3$,P4$
36690 PLAY B3L$,B3R$,A4E$,A4F$,A4G$,,P1$,P2$,P3$,P4$
36700 PLAY B3L$,B3R$,A4H$,A4I$,A4J$,,P1$,P2$,P3$,P4$
36710 PLAY B3L$,B3R$,A4K$,A4M$,A4N$,,S1$,P2$,P3$,P4$
36720 PLAY B4L$,B4R$,A5L$,A5R$,C1L$,C1R$,P5$
36730 PLAY B4L$,B4R$,A5E$,A5F$,C1E$,C1F$,P5$
36740 PLAY B4L$,B4R$,A5G$,A5H$,C1L$,C1R$,P5$
36750 PLAY B4L$,B4R$,    ,    ,C1E$,C1F$,P5$
36760 PLAY B4E$,B4F$,C2L$,C2R$,C1L$,C1R$,P6$
36770 PLAY B4E$,B4F$,C2E$,C2F$,C1E$,C1F$,P6$
36780 PLAY B4E$,B4F$,C2G$,C2H$,C1E$,C1F$,P6$
36790 PLAY B4E$,B4F$,C2I$,C2J$,C1E$,C1F$,P6$
36800 PLAY B5L$,B5R$,C3L$,C3R$,C3C$,C1R$,S6$
36810 PLAY B5E$,B5F$,C3E$,C3F$,C3G$,C1R$
36820 RETURN
36830 '
36840 '
36850 *S_77
36860 'BIND OF 80s OBSESSION
36870 '
36880 AL$="@11V7O4L16" : AR$=AL$+"V2"
36890 A1L$=AL$+"   <A>RCR G8&GF8&FE8 D8 E8& E8 E8DE 8ERE <A8B8>C8  Q8"
36900 A1R$=AR$+"R5 <A>RCR G8&GF8&FE8 D8 E8& E8 E8DE 8ERE <A8B90    Q8"
36910 A1E$=AL$+"    D4C8<B4B8G4 >E2D2"
36920 A1F$=AR$+"R5  D4C8<B4B8G4 >E2D4"
36930 A1G$=AL$+"    C8<B8>C8D4C8D8E4D8C8<B4E8G8G#8 Q8"
36940 A1H$=AR$+"R8  C8<B8>C8D4C8D8E4D8C8<B4E8G8    Q8"
36950 A1I$=AL$+"    C8<B8>C8D4E8F8G4F8E8D4&D8<B4"
36960 A1J$=AR$+"R8  C8<B8>C8D4E8F8G4F8E8D4&D8<B8"
36970 A1M$=AL$+"@44   <A>RCR G8&GF8&FE8 D8 E1"
36980 A1N$=AR$+"@44R5 <A>RCR G8&GF8&FE8 D8 E1"
36990 A2L$=AL$+"    <A4>A8<A4A8>A8<A4 A8>G8<A4 A8>C8D8"
37000 A2R$=AR$+"R5  <A4>A8<A4A8>A8<A4 A8>G8<A4 A8>C90 "
37010 A2E$=AL$+"     E8D8C8<B4 G8>C8D8 E4<E8> D4C8<B8G#8"
37020 A2F$=AR$+"R5   E8D8C8<B4 G8>C8D8 E4<E8> D4C8<B90  "
37030 A2G$=AL$+"    <G8E8G8B4>C4<B4A4G4G8E4 "
37040 A2H$=AR$+"R5  <G8E8G8B4>C4<B4A4G4G8E90"
37050 A3L$=AL$+"     C8<B8>C8G4 C8<G8>D8 C8<B8>C8<G4 B8>C8D8"
37060 A3R$=AR$+"R5   C8<B8>C8G4 C8<G8>D8 C8<B8>C8<G4 B8>C90 "
37070 A3E$=AL$+"     C8<B8>C8G4 C8<G8>C8 D8C8D8G4D8E8B8 "
37080 A3F$=AR$+"R5   C8<B8>C8G4 C8<G8>C8 D8C8D8G4D8E90  "
37090 A3G$=AL$+"     G32A32&A&A4F4E4D4&D8 <B4>C4D4 "
37100 A3H$=AR$+"R5   G32A32&A&A4F4E4D4&D8 <B4>C4D90"
37110 A4L$=AL$+"    <ARRR>ARRE RRRRRRDE DRRR<GRRA RRERG4  Q8"
37120 A4R$=AR$+"R5  <ARRR>ARRE RRRRRRDE DRRR<GRRA RRERG90 Q8"
37130 A4E$=AL$+"    <ARRR>ARRE RRRRRRDE <ARRA8GAR RG#RRG#EGG# Q8"
37140 A4F$=AR$+"R5  <ARRR>ARRE RRRRRRDE <ARRA8GAR RG#RRG#90   Q8"
37150 A5L$=AL$+"@44Q8   GRAR>E<ARAR>E<AR>DRCR<ARRE>C<ARAR>D<AR>ERAR< Q8"
37160 A5R$=AR$+"@44Q8E5 GRAR>E<ARAR>E<AR>DRCR<ARRE>C<ARAR>D<AR>E90   Q8"
37170 A5E$=AL$+"@44Q8   DRGR>A<ARAR>F<AR>ERDR<ARRE>E<ARAR>G<AR>BRGR  Q8"
37180 A5F$=AR$+"@44Q8E5 DRGR>A<ARAR>F<AR>ERDR<ARRE>E<ARAR>G<AR>B90   Q8"
37190 A5G$=AL$+"@44Q8   ARAR>C<AREA>G<GR>ER<BR D>DR<A>RCDR ERBR>CRDR Q8"
37200 A5H$=AR$+"@44Q8E5 ARAR>C<AREA>G<GR>ER<BR D>DR<A>RCDR ERBR>C90  Q8"
37210 A6L$=AL$+"@44Q8   >C<BRGRGA8&AQ1>EREERER<Q8 GR>GRFERDRCDR<BR>DR Q8"
37220 A6R$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>EREERER<Q8 GR>GRFERDRCDR<B90   Q8"
37230 A6E$=AL$+"@44Q8   >C<BRGRGA8&AQ1>ARAARARQ8  DRDRD<B>RCR<BARBRGR Q8"
37240 A6F$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>ARAARARQ8  DRDRD<B>RCR<BARB90  Q8"
37250 A6G$=AL$+"@44Q8   >C<BRGRGA8&AQ1>EREERDRQ8 C<BRGRGA8&AQ1>>CRC<BRERQ8"
37260 A6H$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>EREERDRQ8 C<BRGRGA8&AQ1>>CRC<B90 Q8"
37270 A7L$=AL$+"@44Q8]]  >D8D#32E32&EDCRDR<A>C8<GRA8 >EEEERERERAER<A8>C8"
37280 A7R$=AR$+"@44Q8]]A8>D8D#32E32&EDCRDR<A>C8<GRA8 >EEEERERERAER<A8>  "
37290 A7E$=AL$+"@44Q8]]  >DRDRAGRARDGRAREG C<<C>>C<GB>CRCG#32A32GRERD#RD"
37300 A7F$=AR$+"@44Q8]]AR>DRDRAGRARDGRAREG C<<C>>C<GB>CRCG#32A32GRERD#  "
37310 A7G$=AL$+"@44Q8]]  >E<ARGARDGR>C<A8>DRC8  D#EGAR>CR<ARG#GRERDR"
37320 A7H$=AR$+"@44Q8]]E8>E<ARGARDGR>C<A8>DRC8  D#EGAR>CR<ARG#GRER  "
37330 A7I$=AL$+"@44Q8]]  >C<A>CDR E RDRGREA8G8<]]RA#32B32 > CRR<BRR>CR  "
37340 A7J$=AR$+"@44Q8]]G8>C<A>CDR E RDRGREA8G8 ]]         < ARR GRR AR  "
37350 A7K$=AL$+"@44Q8     E E GAR>C<RARDRCE8D8 ]]RR         ERR DRR ER  "
37360 '
37370 CL$="@106V6O4L16Q8" : CR$=CL$+"V2Q8"
37380 C1L$=CL$+"   (GA<A>DE<A>CD) <<G>>A<A>DE<A>>D<A GA<A>DE<A>CA Q8"
37390 C1R$=CR$+"R8 (GA<A>DE<A>CD) <<G>>A<A>DE<A>>D<A GA<A>DE<A>   Q8"
37400 C1E$=CL$+"   (CG<C>E>G<<C>C>E<) DE<EB>C<EE>B DE<EB> L32 <(D#EGA>) "
37410 C1F$=CR$+"R8 (CG<C>E>G<<C>C>E<) DE<EB>C<EE>B DE<EB> L32 < D#EGA   "
37420 C1G$=CL$+"   (CG<C>E>G<<C>C>E<) DE V5%R5 ERRGRRA"
37430 C1H$=CR$+"R8 (CG<C>E>G<<C>C>E<)    V5%L5 CRRDRRG"
37440 C2L$=CL$+"    <GAB>C D4CRRCRRCR   RRCE ACR<A> CRCE C8&C<F"
37450 C2R$=CR$+"R8  <GAB>C D4CRRCRRCR   RRCE ACR<A> CRCE C8   "
37460 C2E$=CL$+"    <GAB>C D4CRRCRRCR   <GB>CD E4ERRERGFR"
37470 C2F$=CR$+"R8  <GAB>C D4CRRCRRCR   <GB>CD E4ERRERR  "
37480 C2G$=CL$+"     E8&EEREER ERF4E8   DRDRDRCDRCCR<G8>D8"
37490 C2H$=CR$+"R8   E8&EEREER ERF4E8   DRDRDRCDRCCR<G8>  "
37500 E1L$="@32V6O3L16Q3   R4A>C EG &G4&G8EG E4&E8  D E D4<G4 Q8"
37510 E1R$="@32V2O3L16Q8R8 R4A>C EG &G4&G8EG E4&E8  D E D4<G8 Q8"
37520 E1E$="@32V6O3L16Q3   R8GA>C8&C<A&A8&A4E8 G8G#A&A8>C8&CD8&DC8 Q8"
37530 E1F$="@32V2O3L16Q8R8 R8GA>C8&C<A&A8&A4E8 G8G#A&A8>C8&CD8&D   Q8"
37540 E1G$="@32V6O3L16Q3   R8GA>C8&C<A&A8&A4E8 V8Q8>D#DCDR GRERGRRGRG#R"
37550 E1H$="@32V2O3L16Q8R8 R8GA>C8&C<A&A8&A4   V7Q8>C<AGAR>DRCRERRERER "
37560 E2L$="@32V7O4L16Q8   A8>C8D8<A4&A2        A8>C8D8<A8>C8D8<A8"
37570 E2R$="@32V6O4L16Q8   E8 G8A8 E4 ARRARRAD# E8 G8A8 E8 G8A8 E8"
37580 E2C$="@32V2O4L16Q8R8 A8>C8D8<A4&A2        A8>C8D8<A8>C8D90  "
37590 E2E$="@32V7O4L16Q8  >E8D8C8<A1&A8        G4A4 "
37600 E2F$="@32V6O4L16Q8   A8A8G8 E4&E8G8A4D8E4E4F4 "
37610 E2G$="@32V2O4L16Q8R8>E8D8C8<A1&A8        G4A8 "
37620 E2H$="@32V7O4L16Q8   D4>C8<A4G8A8>C8 <A4>C4 G4 D4"
37630 E2I$="@32V6O4L16Q8  <A4>G8 E4D8E8 G8  E4 G4>E4<A4"
37640 E2J$="@32V2O4L16Q8R8 D4>C8<A4G8A8>C8 <A4>C4 G4 D8"
37650 E2K$="@32V7O4L16Q8  >E4&E8F4E8 C8<A8   G4G#4A4B4"
37660 E2M$="@32V6O4L16Q8  >C4&C8D4C8<A8 F8   D4D#4E4G4"
37670 E2N$="@32V2O4L16Q8R8>E4&E8F4E8 C8<A8   G4G#4A4B8"
37680 E2O$="@32V7O4L16Q8  >E4&E8F4E8 C8<A8   G4A4>C4D4"
37690 E2P$="@32V6O4L16Q8  >C4&C8D4C8<A8 F8   D4E4 G4A4"
37700 E2Q$="@32V2O4L16Q8R8>E4&E8F4E8 C8<A8   G4A4>C4D8"
37710 E3$ ="@114V7O4L16Q2 (<E>EQ8E8 <Q2E<E8>>E RER<<E>> >A<Q8EQ2DD#) Q8"
37720 E4L$="@32V7O4L16Q4   <RGRRQ8A2>Q4GRG8 Q8 <C4CRD2<B8"
37730 E4R$="@32V6O4L16Q4   <RDRRQ8E2>Q4ERE8 Q8<<G4GRA2 E8"
37740 E4C$="@32V2O4L16Q4R8 <RGRRQ8A2>Q4GRG8 Q8 <C4CRD2<  "
37750 E4E$="@32V7O4L16Q4   <RGRRQ8A2>Q4GRG8 Q8 C4CRD4DR>D4"
37760 E4F$="@32V6O4L16Q4   <RDRRQ8E2>Q4ERE8 Q8<G4GRA4AR>A4"
37770 E4G$="@32V2O4L16Q4R8 <RGRRQ8A2>Q4GRG8 Q8 C4CRD4DR>D8"
37780 E5L$="@32V7O4L16Q4  <ARAR>G8&GG<A>G<A8>GRG<G#ARAR>G8&GG D E CDRD G8"
37790 E5R$="@32V6O4L16Q4  <ERER>E8&EE<E>E<E8>ERE<B ERER>E8&EE<A>C<GARA>E8"
37800 E5C$="@32V2O4L16Q4R8<ARAR>G8&GG<A>G<A8>GRG<G#ARAR>G8&GG D E CD   G8"
37810 E5E$="@32V7O4L16Q4  <ARAR>G8&GG<A>G<A8>GRGR< CRCR>C<CRCRCD8>DRDR Q8"
37820 E5F$="@32V6O4L16Q4  <ERER>E8&EE<E>E<E8>ERER<<GRGR>G<GRGRGA8>ARAR Q8"
37830 E5G$="@32V2O4L16Q4R8<ARAR>G8&GG<A>G<A8>GRGR< CRCR>C<CRCRCD8>DR   Q8"
37840 B$="@27V8O3L16"
37850 B1$ =B$+"A8&AARGARARRRG8&GD#32E32 F8&FFRCF8FR>D<D>C<EB8"
37860 B1E$=B$+"CGRG8FGRDFGGR>D<GB      >CRC8<B>CRCE<AED8D#EG#"
37870 B1F$=B$+"D4D&D8ERDE8E8EC F8&FFREG4 E8E8E8"
37880 B2$ =B$+"A&A8AGRA4ERDEGE A&A8AGRA4>CR<BAG8"
37890 B2E$=B$+"EF8FREF8GRFG8FG8 C4C&C8ER DE8E8G#8"
37900 B2F$=B$+"CRC8C&C8C REF8FRF8 D4D8&DD R<A>E8D8E8  "
37910 B3$ =B$+"D8&DD8&DD8DR>C<ARDRC A8&AA8&AA8AR<A8>C8C#8 "
37920 B3E$=B$+"D8&DD8&DD8DR<DAR>CRD D#E8&EERDE8GE8C8E8"
37930 B3F$=B$+"F8&FFRRD#RR<A#>C8D#8FF#   G8G8FG8GRGG#8E8G#8"
37940 B4$ =B$+"<R8A8>G8&GA @26RARRARA<@27E D8E8>A#8&A#A @28<RERRG8&G"
37950 B4E$=B$+"<R8A8>G8&GA @26RARRARA @27D D8CD8AD8RE8&EE8G#8"
37960 B5$ =B$+"<AR>A8<A>A8<ARGA8E8GG# AR>A8<A>A8<ARGA8>C8D8 "
37970 B5E$=B$+"<FR>F8<F>F8<FREF8C8CE  FR>F8<F>F8<FREF8>F8C8"
37980 B5F$=B$+" DDC8DR<GGRGA8>C8DD#  <ERE8>EDR<B8A#AR>D8<B8"
37990 B5G$=B$+" CDC8DR<GGRGA8>C8DD#   D4D#8&D#D#RE8&EG4"
38000 B6$ =B$+"<A8&AARRRRRR AR>ED#R<G RRRRRRRR RRRRE8&EE"
38010 B6E$=B$+"<[[A&A8AE8&EEQ6GRDDRDQ8E8 GA8AE8>Q3EQ8<EQ6GD>Q3G<EQ8G8G#8"
38020 B6F$=B$+"<[[A&A8AE8&EEQ6GRDDRDQ8E8>C8C<A#8A#G8 RRDR E8GG#"
38030 B7$ =B$+"Q6 <GG#A>DRC8CRCRCC<AGE GG#A>DRC8CRCRCERE8          Q8"
38040 B7E$=B$+"Q6  DRDR<A>CDDRD<GG#ARB8 >CCRCR<B>CRRD32C#32D8E8<B8 Q8"
38050 B7F$=B$+"Q6 <FFRFREF8GGRGREGG# &G#8AR RG8&G ARRR RRRR      Q8"
38060 '
38070 P1$= "@1V6 O0L16 GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRRR"
38080 S1$= "@1V6 O0L16 GRRRGRRRGRRRGRRR C2        CRCRCR"
38090 SS1$="@1V9 O0L16 GRRRRRRRRRRRRRRC GRRRRRRRRRCRCRCR"
38100 PP1$="@9V8 O1L16 CRRCRRRCRRCRRRRC CRRCRRRCRRCRRRCR"
38110 PS1$="@9V8 O1L16 CRRRRCCCRRRCRCRC CRRCRCRCRRRCRRCR"
38120 P2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRCRRRRCRRCRV3CC"
38130 Q2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRCRRR@9>CD<@8C8 @9>C<@8 CCC"
38140 R2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RCRRCRGCRCR  @2 GC<%R9C%L9E>C %C"
38150 PP2$="@8V9 O4L16 RRRRRRRRRRRRCRRC RRRRRRCRCRRRCRV3CC"
38160 S2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRRRRRRRRRRRRR"
38170 P3$= "@1V4 O7L16 CBCF<C8>CE8BCF<C8>CG32E32CB<C>C<C8>C<G>CB<G8>CF<C8"
38180 S3$= "@1V4 O7L16 CBCF<C8>CE8BCF<C8>CG32E32"
38190 P4$= "@4V5 O7L16 RCRCRO2GO7CRC>C<CRCCRC RCRCRO2GRGO7C>C<CRCCRC"
38200 S4$= "@4V5 O7L16 RCRCRO2GO7CRC>C<CRCCRC "
38210 P5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CRCRRR>G<CRGC>RGR<CR"
38220 Q5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CR>B<CR>G<C>GRG<C>RGR<CR"
38230 R5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CR>B32B32B<RRC>B<C>BRB<CC>CR"
38240 S5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CRRRRRRR RRCRCRCR"
38250 SS5$="@8V9 O1L16 CRRRRRRRRRRRRRRR RRRRRRRRRRRRRRCC"
38260 '
38270 '
38280 PLAY B1$ ,A1L$,A1R$,,,,    ,PP2$
38290 PLAY B1E$,A1E$,A1F$,,,,PS1$,P2$
38300 PLAY B1$ ,A1L$,A1R$,,,,PP1$,P2$ ,P3$,P4$
38310 PLAY B1F$,A1G$,A1H$,,,,S1$ ,Q2$ ,P3$,P4$
38320 PLAY B2$ ,A2L$,A2R$,C1L$,C1R$,,P1$,P2$,,P4$
38330 PLAY B2E$,A2E$,A2F$,C1E$,C1F$,,P1$,P2$,,P4$
38340 PLAY B2$ ,A2L$,A2R$,C1L$,C1R$,,P1$,P2$,,P4$
38350 PLAY B2F$,A2G$,A2H$,C1E$,C1F$,,P1$,P2$,,P4$
38360 PLAY B3$ ,A3L$,A3R$,C2L$,C2R$,,P1$ ,    ,   ,P4$
38370 PLAY B3$ ,A3L$,A3R$,C2L$,C2R$,,P1$ ,    ,P3$,P4$
38380 PLAY B3E$,A3E$,A3F$,C2E$,C2F$,,P1$ ,PP2$,P3$,P4$
38390 PLAY B3F$,A3G$,A3H$,C2G$,C2H$,,P1$ ,PP2$,P3$,P4$
38400 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,,P1$ ,P2$ ,P3$,P4$
38410 PLAY B1E$,A1E$,A1F$,C1E$,C1F$,,P1$ ,P2$ ,P3$,P4$
38420 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,,P1$ ,P2$ ,P3$,P4$
38430 PLAY B1F$,A1I$,A1J$,C1E$,C1F$,,S1$ ,R2$ ,P3$,P4$
38440 PLAY B4$ ,A4L$,A4R$,E1L$,E1R$,E3$,PP1$,P2$
38450 PLAY B4$ ,A4L$,A4R$,E1E$,E1F$,E3$,PP1$,P2$
38460 PLAY B4$ ,A4L$,A4R$,E1L$,E1R$,E3$,PS1$,P2$,,P4$
38470 PLAY B4E$,A4E$,A4F$,E1G$,E1H$,E3$,SS1$,Q2$,,P4$
38480 PLAY B5$ ,A5L$,A5R$,E2L$,E2R$,E2C$,P1$ ,P2$ ,,P4$
38490 PLAY B5E$,A5L$,A5R$,E2E$,E2F$,E2G$,P1$ ,P2$ ,,P4$
38500 PLAY B5F$,A5E$,A5F$,E2H$,E2I$,E2J$,P1$ ,P2$ ,,P4$
38510 PLAY B5G$,A5G$,A5H$,E2K$,E2M$,E2N$,P1$ ,P2$ ,,P4$
38520 PLAY B5$ ,A5L$,A5R$,E2L$,E2R$,E2C$,P1$ ,P2$ ,P3$,P4$
38530 PLAY B5E$,A5L$,A5R$,E2E$,E2F$,E2G$,P1$ ,P2$ ,P3$,P4$
38540 PLAY B5F$,A5E$,A5F$,E2H$,E2I$,E2J$,P1$ ,P2$ ,P3$,P4$
38550 PLAY B5G$,A5G$,A5H$,E2O$,E2P$,E2Q$,P1$ ,P2$ ,P3$,P4$
38560 PLAY B6$ ,A6L$,A6R$,E4L$,E4R$,E4C$,SS5$,S2$
38570 PLAY B6$ ,A6E$,A6F$,E4E$,E4F$,E4G$,S5$ ,Q2$,S3$
38580 PLAY B6E$,A6G$,A6H$,E5L$,E5R$,E5C$,P5$ ,P2$,P3$,P4$
38590 PLAY B6$ ,A6L$,A6R$,E5E$,E5F$,E5G$,S5$ ,S2$,S3$,S4$
38600 PLAY B7$ ,C1L$,C1R$,A7L$,A7R$,    ,P5$,P2$,P3$,P4$
38610 PLAY B7E$,C1E$,C1F$,A7E$,A7F$,    ,Q5$,P2$,P3$,P4$
38620 PLAY B7$ ,C1L$,C1R$,A7G$,A7H$,    ,P5$,P2$,P3$,P4$
38630 PLAY B7F$,C1G$,C1H$,A7I$,A7J$,A7K$,R5$,R2$,S3$,S4$
38640 PLAY     ,A1M$,A1N$
38650 RETURN
38660 '
38670 '
38680 *S_81
38690 'NEURAL BIT MAP
38700 '
38710 AL$="@77V7O3L16Q8" : AR$=AL$+"V2"
38720 A1L$=AL$+"   >C#RR<F#RRAR R4RRF#A >C#RR<F#RRAR R4A4"
38730 A1R$=AR$+"R8 >C#RR<F#RRAR R4RRF#A >C#RR<F#RRAR R8E4"
38740 A1E$=AL$+"    BRRERRGR RRRRRREG BRRERRGR RRRRARBR"
38750 A1F$=AR$+"R8  BRRERRGR RRRRRREG BRRERRGR RRRRAR  "
38760 A2L$=AL$+"   >C#RRDRRC#RRR<ARF#RAR >C#RRDRRC#RRR<AR>F#R<BR"
38770 A2R$=AR$+"R8 >C#RRDRRC#RRR<ARF#RAR >C#RRDRRC#RRR<AR>F#R<"
38780 A2E$=AL$+"   >CRRRRRCR<ARRRBR>CR RRRRCRR<C> DRRRCRRR"
38790 A2F$=AR$+"R8 >CRRCRRCR<ARRRBR>CR RCRRCR    <BRRRARRR"
38800 A2G$=AL$+"   >CRRRRRCR<ARRRBR>CR R2 <@96V3 ERFRGRAR"
38810 A2H$=AR$+"R8 >CRRCRRCR<ARRRBR>CR R2 <@96V1 ERFRGR  "
38820 A3L$="@119V6O4L16%R5   <E>EREREERDEEEREER >E<ARARAARGAGBRAGD"
38830 A3R$="@119V3O4L16%L5R8 <E>EREREERDEEEREER >E<ARARAARGAGBRA  "
38840 A3E$="@119V9O3L16%R5   (B>B<)(E>E<)E>EDER<E>ED(<B>C)DDR(<B>CR)<B>C<B"
38850 A3F$="@119V5O3L16%L5R8 (B>B<)(E>E<)E>EDER<E>ED(<B>C)DDR(<B>CR)<B>   "
38860 A3G$="@119V9O3L16%R5   (BRB>BRB<B>B<)> AREGRDERCDR<A>BRBR"
38870 A3H$="@119V5O3L16%L5R8 (BRB>BRB<B>B<)> AREGRDERCDR<A>BR  "
38880 A3I$="@119V7O3L16%R5    A1"
38890 A3J$="@119V6O3L16%L5    ERR[[[A"
38900 '
38910 C1L$="@58V6O3L16Q1%R9  AB>E<RARB>ERE<ARBRAG#AB>E<RARB>ERE<ARBR>C<AQ8"
38920 C1R$="@58V4O3L16Q1%L9R8AB>E<RARB>ERE<ARBRAG#AB>E<RARB>ERE<ARBR    Q8"
38930 C1E$="@58V6O3L16Q1%R9  AB>E<RARB>ERE<ARBR>C<A <A8RRA4>REGAR>E<RG Q8"
38940 C1F$="@58V4O3L16Q1%L9R8AB>E<RARB>ERE<ARBR>C<A <A8RRA4>REGAR>E<   Q8"
38950 C2L$="@101V6O2L16%C  >C#1&C#1" : C2E$="@101V6O2L16%C  >E1&E1 "
38960 C2R$="@101V6O2L16%R3  A1 &A1 " : C2F$="@101V6O2L16%R3 >C1&C1 "
38970 C2C$="@101V6O2L16%L3  F#1&F#1" : C2G$="@101V6O2L16%L3  A1&A1 "
38980 C2H$="@101V6O2L16%C  >E1 E@1RRRR2< @101B RRR"
38990 C2I$="@101V6O2L16%R3 >C1 C@1RRRR2< @101G#RRR"
39000 C2J$="@101V6O2L16%L3  A1 A@1RRRR2  @101E RRR"
39010 C3L$="@39V6O3L16Q4%L9  <R4>A<ARR>B<RRGRR>ER<RRR>B<ARR>A<ARRGA8B8 Q8"
39020 C3R$="@39V4O3L16Q4%R9R8<R4>A<ARR>B<RRGRR>ER<RRR>B<ARR>A<ARRGA8   Q8"
39030 C3E$="@39V6O3L16Q4%L9  <R4>A<ARR>B<RRGRR>ER<RA4>ARR>BRRERRGR Q8"
39040 C3F$="@39V4O3L16Q4%R9R8<R4>A<ARR>B<RRGRR>ER<RA4>ARR>BRRERR   Q8"
39050 C3G$="@39V5O3L16Q4%L9   <A>RRBRGRRERRGRR>DR RRE<BRABRGAREG>D<B Q8"
39060 C3H$="@39V3O3L16Q4%R9R8 <A>RRBRGRRERRGRR>DR RRE<BRABRGAREG     Q8"
39070 C3I$="@39V5O3L16Q4%L9   <A>RRBRGRRERRGRR>DR R2R4Q8 @101V5<<B4 "
39080 C3J$="@39V3O3L16Q4%R9R8 <A>RRBRGRRERRGRR>DR R2R8Q8 @101V5<<G4 "
39090 C4L$="@96V3O4L16Q1%L2   <A>DRRERRRRRRBRRAG# <A>RRRDRRR<E>ERE>E Q8"
39100 C4R$="@96V1O4L16Q1%R2R8 <A>DRRERRRRRRBRRAG# <A>RRRDRRR<E>ERE>E Q8"
39110 C4E$="@96V3O4L16Q1%L2   RARRERR<C>BRR>BRRRR< RCRRREARBRRDRRER  Q8"
39120 C4F$="@96V1O4L16Q1%R2R8 RARRERR<C>BRR>BRRRR< RCRRREARBRRDRR    Q8"
39130 C5L$="@60V6O3L16Q8%L2   RRBRRRBRREBRRRBR RRBRREBR<B>EBRR>E<BR "
39140 C5R$="@60V2O3L16Q8%R2R8 RRBRRRBRREBRRRBR RRBRREBR<B>EBRR>E<   "
39150 C5E$="@60V7O3L16Q8%L2   RBRR>BRRGARRGRREG >B<EGRBRR<B>DRARBRDR"
39160 C5F$="@60V3O3L16Q8%R2R8 RBRR>BRRGARRGRREG >B<EGRBRR<B>DRARBR"
39170 C5G$="@60V7O3L16Q8%L2   (E>B<)B8(E>G<)B8E>B<B8 (E>B<)B8(E>E<)B8>D8E8"
39180 C5H$="@60V6O3L16Q8%R2R8 (E>G<)B8(E>B<)B8E>B<B8 (E>G<)B8(E>B<)B8>D8  "
39190 C5I$="@60V7O3L16Q8%L2   (E>B<)B8(E>G<)B8E>B<B8 (E>E8<])4A>E<E24B64>B"
39200 C5J$="@60V6O3L16Q8%R2R8 (E>G<)B8(E>B<)B8E>B<B8 (E>E8<])4A>E<        "
39210 E1L$="@96V3O4L16%R6Q1   <ER>ERA8GA<A>ERGA8GA<ER>ERA8GA<B>ARAB8AG#Q8"
39220 E1R$="@96V1O4L16%L6Q1R8 <ER>ERA8GA<A>ERGA8GA<ER>ERA8GA<B>ARAB8   Q8"
39230 E1E$="@96V3O4L16%R6Q1   (<ER>ER)4(<DR>DR)<GR>GR<AR>AR Q8"
39240 E1F$="@96V1O4L16%L6Q1R8 (<ER>ER)4(<DR>DR)<GR>GR<AR>   Q8"
39250 E1G$="@96V3O4L16%R6Q1   <ERR>E"
39260 E1H$="@96V1O4L16%L6Q1R8 <ERR>E" : E$="@59V5O3L16Q1"
39270 E2L$=E$+"    RBRR>BR@6C@59GARRGR@5C@59EG>B<EGRBR@5B@59<B>DRARBRDRQ8"
39280 E2R$=E$+"R8V2RBRR>BR@6C@59GARRGR@5C@59EG>B<EGRBR@5B@59<B>DRARBR  Q8"
39290 E2E$=E$+"    RBRR>BR@6C@59GARRGR(E[ER)4 RERERQ8"
39300 E2F$=E$+"R8V2RBRR>BR@6C@59GARRGR(E[ER)4 RER  Q8"
39310 B$="@77V11O1L16"
39320 B1$ =B$+"@60O3V9 RRERER R<A>ERER<A8>C8 RDERER R<A>ERER<A8>C8"
39330 B1E$=B$+"@60O3V9 RRERER R<A>ERER<A8>C8 @77O1 RRERRERR E>E<ER>E4"
39340 B2$ =B$+"ERE8GE8AE8A#E8B>D<D ERE8GE8AE8A#E8B>E8"
39350 B2E$=B$+"ERE8GE8AE8A#E8B>D<D @45V6> E>E<E8GE8AE8A#E8B @77ED"
39360 B2F$=B$+"ERE8GE8AE8A#E8B>D<D @41V3> RBBRRBRB<B>BRB<BR>>E8 "
39370 B3$ =B$+"C<C>C8D#ERF <B>CRCD#RA#B >Q4CQ8<CRCD#ERF <B>CRCD#RA#8"
39380 B3E$=B$+"C<C>C8D#ERF <B>CRCD#RA#B R2@29[[(<G>G)<A>AA>A"
39390 B4$ =B$+"Q6 RF#RF#RRR4F#REF#8F# C#F#RF#RRF#R RR>C#<RBAE8 Q8"
39400 B4E$=B$+"Q6 <A8>ARRARGARRREARA  RG#ARRARGARRE>E8ER Q8"
39410 B4F$=B$+"   F#BF#8EF#RF#C#F#RF#A8BE F#BF#8EF#RF#RG#A8B8>C#8"
39420 B4G$=B$+"   A8RAG#8AEG#AA8G#8AE A>A<A8G8AE A>ED8<E8G8"
39430 B4H$=B$+"   A8RAG#8AEG#AA8G#8AE ARRRRRRR  @115Q3V8 DDRDE8G8"
39440 B5$ =B$+"@115Q3V8 E4E4E4E4 E4E4E8<EA>E8D8 Q8"
39450 B5E$=B$+"@115Q3V8 E4E4E8<E>EDREG <E>E8&EDE8<E>E<G>G<B>B8D8 Q8"
39460 B5F$=B$+"@115Q3V8 E4E4E8<E>EDREG <D>D8<E>E8<G>G8<A>A8D>D<E>E Q8"
39470 '
39480 '
39490 P1$= "@1V5O0L16 G4G4G4G4G4G4G4G4"
39500 S1$= "@1V5O0L16 G4G4G4G4G4R4R4R4"
39510 P2$= "@6V6O4L16 RCCRRCRRCRRCRRCR  CRCRRCRRCRRC<CR>CR"
39520 Q2$= "@6V6O4L16 RCCRRCRRCRRCRRC[[C32C32]] CRCRRCRRC<C>RC<CR>CR"
39530 S2$= "@6V6O4L16 RCCRRCRRCRRCRRC[[C32C32]] CRRRRRRRRRRRRRRR"
39540 R2$= "@6V6O4L16 RCCRRCRC<C>RCR<C>CCR RCCRRCRC<C>CRC<CR>[[[CC"
39550 P3$= "@8V4O7L24 (%R9C8%CCR%L9C@6%CCR%R9>C<@8%CCR%L9C )4 %C"
39560 S3$= "@8V4O7L24 (%R9C8%CCR%L9C@6%CCR%R9>C<@8%CCR%L9C )2 %C C8"
39570 P4$= "@12V4O6L16 (RR%R5CRRR%L5CR)4"
39580 S4$= "@12V4O6L16 (RR%R5CRRR%L5CR)2"
39590 BP1$="@9 V0O6L16 R2RRFRRRFR (FFFF])FF]F]F]F]F]]F]]F"
39600 BP2$="@12V7O6L16 R1(%R9CR>%CC<]]%R9CR>%CC<]]) C]>C<]]]C"
39610 SP1$="@11V3O6L16 D1&D1"
39620 '
39630 '
39640 PLAY     ,    ,    ,,,,P1$,P3$
39650 PLAY     ,    ,    ,,,,P1$,P3$
39660 PLAY     ,C1L$,C1R$,,,,P1$,P3$
39670 PLAY     ,C1E$,C1F$,,,,S1$,S3$
39680 PLAY B1$ ,C1L$,C1R$,,,,P1$,P2$,P3$
39690 PLAY B1$ ,C1L$,C1R$,,,,P1$,Q2$,P3$
39700 PLAY B1$ ,C1L$,C1R$,,,,P1$,P2$,P3$
39710 PLAY B1E$,C1E$,C1F$,,,,S1$,S2$,S3$
39720 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
39730 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
39740 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
39750 PLAY B2E$,C1E$,C1F$,C4L$,C4R$,,S1$,R2$,P3$
39760 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
39770 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
39780 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
39790 PLAY B3E$,C1E$,C1F$,C4E$,C4F$,,P1$,R2$,P3$
39800 PLAY B2$ ,C1L$,C1R$,C3L$,C3R$,,P1$,R2$,P3$
39810 PLAY B2$ ,C1E$,C1F$,C3E$,C3F$,,P1$,R2$,P3$
39820 PLAY B2$ ,C1L$,C1R$,C3G$,C3H$,,P1$,R2$,P3$
39830 PLAY B2F$,C1E$,C1F$,C3I$,C3J$,,S1$,R2$,S3$
39840 PLAY B4$ ,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,   ,P4$
39850 PLAY B4E$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,   ,P4$
39860 PLAY B4$ ,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,P2$,P4$
39870 PLAY B4E$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,S2$,P4$
39880 PLAY B4F$,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,R2$,P3$,P4$
39890 PLAY B4G$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,R2$,P3$,P4$
39900 PLAY B4F$,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,R2$,P3$,P4$
39910 PLAY B4G$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,R2$,P3$,P4$
39920 PLAY B4F$,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,R2$,P3$,P4$
39930 PLAY B4G$,C2E$,C2F$,C2G$,A2E$,A2F$,P1$,R2$,P3$,P4$
39940 PLAY B4F$,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,R2$,P3$,P4$
39950 PLAY B4H$,C2H$,C2I$,C2J$,A2G$,A2H$,S1$,S2$,S3$,S4$
39960 PLAY B5$ ,A3L$,A3R$,    ,    ,,P1$,P4$
39970 PLAY B5$ ,A3L$,A3R$,    ,C5R$,,P1$,P4$
39980 PLAY B5$ ,A3L$,A3R$,C5L$,C5R$,,P1$,P4$
39990 PLAY B5E$,A3L$,A3R$,C5L$,C5R$,,P1$,P4$,BP1$
40000 PLAY B5$ ,A3E$,A3F$,C5E$,C5F$,,P1$,P4$,SP1$
40010 PLAY B5$ ,A3G$,A3H$,C5E$,C5F$,,P1$,P4$
40020 PLAY B5$ ,A3E$,A3F$,C5E$,C5F$,,P1$,P4$
40030 PLAY B5E$,A3G$,A3H$,C5E$,C5F$,,P1$,S4$
40040 PLAY B5$ ,A3E$,A3F$,C5G$,C5H$,,P1$,P4$
40050 PLAY B5E$,A3G$,A3H$,C5G$,C5H$,,P1$,P4$
40060 PLAY B5$ ,A3E$,A3F$,C5G$,C5H$,,P1$,P4$,P2$
40070 PLAY B5F$,A3G$,A3H$,C5I$,C5J$,,P1$,P4$,Q2$,BP1$,BP2$
40080 PLAY C1L$,C1R$,A3L$,A3R$,E1L$,E1R$,P3$,P4$,R2$,SP1$
40090 PLAY C1E$,C1F$,A3E$,A3F$,E1E$,E1F$,P3$,P4$,R2$
40100 PLAY C1L$,C1R$,A3L$,A3R$,E1L$,E1R$,P3$,P4$,R2$
40110 PLAY C1E$,C1F$,A3G$,A3H$,E1G$,E1H$,S3$,S4$,S2$,BP1$
40120 PLAY E2L$,E2R$,E1L$,E1R$,C1L$,C1R$,P1$,P3$,P4$,R2$,SP1$
40130 PLAY E2L$,E2R$,E1E$,E1F$,C1E$,C1F$,P1$,P3$,P4$,R2$
40140 PLAY E2L$,E2R$,E1L$,E1R$,C1L$,C1R$,P1$,P3$,P4$,R2$
40150 PLAY E2E$,E2F$,    ,E1F$,C1E$,C1F$,P1$,P3$,P4$,R2$,BP1$
40160 PLAY E2L$,E2R$,    ,,C1L$,C1R$,P1$,P3$,P4$,R2$,SP1$
40170 PLAY E2L$,E2R$,    ,,    ,C1F$,P1$,P3$,P4$,R2$
40180 PLAY E2L$,E2R$,    ,,    ,    ,P1$,P3$,P4$,R2$
40190 PLAY E2E$,E2F$,    ,,    ,    ,P1$,P3$,P4$,R2$
40200 PLAY     ,    ,    ,,    ,    ,P1$,P3$,P4$,P2$
40210 PLAY     ,    ,    ,,    ,    ,P1$,   ,P4$,Q2$
40220 PLAY     ,    ,    ,,    ,    ,P1$,   ,   ,P2$
40230 PLAY     ,    ,    ,,    ,    ,P1$,   ,   ,Q2$
40240 RETURN
40250 '
40260 '
40270 *S_83
40280 'DEFCON L5
40290 '
40300 AL$="@39V6O4L16Q8" : AR$=AL$+"[" : AC$=AL$+"[[@32"
40310 A1L$=AL$+"[B4>C8<B4>C8R8C8 <B4>C8<B4>D8C8<B8 "
40320 A1R$=AR$+"[G4 A8 G4 A8R8A8  G4 A8 G4 B8A8 G#8"
40330 A1E$=AL$+"[B4>C8<B4>C8R8<E8 &E2 DRR BRRE"
40340 A1F$=AR$+"[G4 A8 G4 A8R8 C8 &C2<BRR>GRRC"
40350 A1G$=AL$+"[A4&A8B4>C8RR DRRRDRC4<B4>C8"
40360 A1H$=AR$+"[F4&F8G4 A8RR BRRRBRA4 G4 A8"
40370 A1I$=AL$+"[A4&A8B4>C8RR DRRRDRC4 E4<G4"
40380 A1J$=AR$+"[F4&F8G4 A8RR BRRRBRA4 B4 E4"
40390 A2L$=AL$+"E4F#4G8A4 BRRRBRA4 G4A4 "
40400 A2R$=AR$+"C4D4 E8F#4GRRRGRF#4E4F#4"
40410 A2E$=AL$+"B4>C8<G4&G8A4 B4>C8<G4&G8>D4"
40420 A2F$=AR$+"G4 A8 E4&E8F4 G4 A8 E4&E8 A4"
40430 A2G$=AL$+"B4>C8<G4&G8A4 B4&B8>C4&C8<B4"
40440 A2H$=AR$+"G4 A8 E4&E8F4 G4&G8 A4&A8 G4"
40450 A3L$=AL$+"   A4B4>CRD4<ARRRA8B4>C4D4"
40460 A3R$=AC$+"R8 A4B4>CRD4<ARRRA8B4>C4D8"
40470 A3L$=AL$+"   A4B4>CRD4<ARRRA8B4>C4D4"
40480 A3R$=AC$+"R8 A4B4>CRD4<ARRRA8B4>C4D8"
40490 A3E$=AL$+"   B2&B4&B8>C2D4&D8<G4"
40500 A3F$=AR$+"   G2&G4&G8 A2B4&B8 E4"
40510 A3G$=AL$+"   A4&A8G4&G8E4&E8 D8C8<B4>C8D8D#8"
40520 A3H$=AR$+"   E4&E8D4&D8C4&C8<B8A8 G4 A8B8B8"
40530 '
40540 C1L$="@44V7O5L16Q3   CRR<E>RRCRRR ER DRCR CRR<E>RRCRRR<G#R>CR<BR Q8"
40550 C1R$="@44V7O5L16Q3  <ARR C RRARRR>CR<BRAR ARR C RRARRR ER AR G#R Q8"
40560 C1C$="@44V3O5L16Q3R8 CRR<E>RRCRRR ER DRCR CRR<E>RRCRRR<G#R>CR<   Q8"
40570 C2L$="@44V6O3L16    A>CE<AR>GREREDRCRD<E A>CE<AR>GREREDRGRBR"
40580 C2R$="@44V2O3L16R8  A>CE<AR>GREREDRCRD<E A>CE<AR>GREREDRGR  "
40590 C2E$="@44V6O3L16   >FEDERCRDR<A>CRERAG F>E<DERCRDR<A>CRERG#R"
40600 C2F$="@44V2O3L16R8 >FEDERCRDR<A>CRERAG F>E<DERCRDR<A>CRER   "
40610 C2G$="@44V6O3L16   >FEDERCRDR<A>CRERAG F>E<DERC>DCR<BG#RERDR"
40620 C2H$="@44V2O3L16R8 >FEDERCRDR<A>CRERAG F>E<DERC>DCR<BG#RER  "
40630 C3L$="@44V5O3L16   >G8<B8>C<GR>DRRDRD8<G8> <B8>C8(<B>C8)3<B>D8"
40640 C3R$="@44V1O3L16R8 >G8<B8>C<GR>DRRDRD8<G8> <B8>C8(<B>C8)3<B>"
40650 C3E$="@44V5O3L16   >G8F8ED8ERED8C8<B8  >C4<F8>D4<G8>E4"
40660 C3F$="@44V1O3L16R8 >G8F8ED8ERED8C8<]]]] A4 D8 B4 E8>C4"
40670 C3G$="@44V5O3L16   >>CRC8<B>C8D8<G>C<A>D8EA8D#D8C8<B>CDD#E8G8G#8"
40680 C3H$="@44V1O3L16R8 >>CRC8<B>C8D8<G>C<A>D8EA8D#D8C8<B>CDD#E8G8   "
40690 C4L$="@44V7O4L16Q1   AR>ERDERG<GA>DERA<EF# GA>ERDER<E>ERCDR<A>GR Q8"
40700 C4R$="@44V3O4L16Q1R8 AR>ERDERG<GA>DERA<EF# GA>ERDER<E>ERCDR<A>   Q8"
40710 C4E$="@44V7O4L16Q1   AR>ERDERG<GA>DERA<EF# Q8[<<A8>D8E8G8A8>C#8DEGA"
40720 C4F$="@44V3O4L16Q1R8 AR>ERDERG<GA>DERA<EF# Q8[<<A8>D8E8G8A8>C#8DE  "
40730 C5$ ="@60V8O4L16Q8   <ER>E8AE8DE8<A8>ACA<D ER>E8AE8DE8<EA>AEB8"
40740 E1L$="@60V6O4L16Q8   (<A>AAA>C8<A>D8<A>E8<<A>AEA)"
40750 E1R$="@60V3O4L16Q8R8 (<A>AAA>C8<A>D8<A>E8<<A>AE) "
40760 E2L$="@56V3O3L16Q8   R4A2R8>AB32>C32<< BRRR>CRER RRRRRRRR "
40770 E2R$="@56V0O3L16Q8R  R4A2R8>AR<        BRRR>CRER RRRRRRR  "
40780 E3L$="@51V3O3L16Q4 (A>A<)A8>A<A(G>G8<)G>G<(F#>F#<)F#8EF#(G>G8<)G>GQ8"
40790 E3R$="@51V0O3L16Q4R8(A>A<)A8>A<A(G>G8<)G>G<(F#>F#<)F#8EF# G>G8<G  Q8"
40800 E3E$="@51V3O3L16Q4  (A>A<)A8>A<A(G>G8<)G>G(C>CC<)C>C<<G>GG<G>(G#)4Q8"
40810 E3F$="@51V0O3L16Q4R8(A>A<)A8>A<A(G>G8<)G>G(C>CC<)C>C<<G>GG<G>     Q8"
40820 FL$="@51V5O3L16Q5%R5U40" : FR$=FL$+"%L5V5U-10"
40830 F1L$=FL$+"  GBR>C#R<F#G2F#R<A>DERG8&GGRRF#RERD8"
40840 F1R$=FR$+"  GBR>C#R<F#G2F#R<A>DERG8&GGRRF#RERD8"
40850 F1E$=FL$+"  C#RRD8<A>D#RE8<A8>ARA8 <RRERRARR> G8&GF#8&F#A8"
40860 F1F$=FR$+"  C#RRD8<A>D#RE8<A8>ERE8 <RRARRERR> G8&GF#8&F#A8"
40870 F1G$=FL$+" >(C#32DR32)C#DR<ARGRF#G8A8>(C#32DR32)C#DR<ARGRF#>ERE8"
40880 F1H$=FR$+" >(C#32DR32)C#DR<ARGRF#G8A8>(C#32DR32)C#DR<ERDRC# BRB8"
40890 F1I$=FL$+" >C#32D32&DC#RDC#RD8&DC#8<G8A8 V4<RRRRRARRERR>AR>E<A8"
40900 F1J$=FR$+"  G#32A32&AG RAG RA8&AG8  D8E8 V4<RRARRRRRARR>ER>A<E8"
40910 F2L$=FL$+" <A8>A8<R>A8<A>G8<R>F#8<E>G8 <A8>A8<A>A8<A>>D8<<G >A8<G>G8"
40920 F2R$=FR$+" <R8>E8<A>E8<R>D8<G>D8 <R>E8 <A8>A8<A>A8<A> A8 <G>>C#8R<E8"
40930 F2E$=FL$+" <A>DE8G8F#E8DRDA8A8 >DRC#R<GARA>DRC#<GRGE8"
40940 F2F$=FR$+" <A>DE8G8F#E8DRDA8A8 >DRC#R<GARA>DRC#<GRGE8"
40950 F2G$=FL$+">(C#32DR32)C#DRE8<ARA>GR<A8>(C#32DR32)C#DRE<A#8>D<A8>C#<G8"
40960 F2H$=FR$+">(C#32DR32)C#DRE8<ARA>GR<A8>(C#32DR32)C#DRE<A#8>D<A8>C#<G8"
40970 F2I$=FL$+"  AA#<A8A#>D<A#>C#RC#<A#8A8G8 AA#R>C#DREFRGG#32AR32G8<A8"
40980 F2J$=FR$+"  AA#<A8A#>D<E >C#RC#<A#8A8G8 AA#R>C#DREFRGG#32AR32G8<A8"
40990 F3L$=FL$+"%CV3Q8    D4E4F8&FERR<AB >CDD8D#32E32&E&E8F8&FERR<A8"
41000 F3R$=FR$+"%CV0Q8R8  D4E4F8&FERR<A8 >CDD8D#32E32&E&E8F8&FERR<  "
41010 F3E$=FL$+"%CV2Q8    D4E4F8&FERR<A8 >CDD8D#32E32&E&E8A8&AGRR<A8"
41020 F3F$=FR$+"%CV0Q8R8  D4E4F8&FERR<A8 >CDD8D#32E32&E&E8A8&AGRR<  "
41030 F3G$=FL$+"%CV2Q8    D4E4F8&FERR<A8 >D1&D1"
41040 F3H$=FR$+"%CV0Q8R8  D4E4F8&FERR<    A1&A1"
41050 B0$= "@77V11O1L16Q8  A4AR>A4&A8<A>A<A8 A4AR>A4<ERA>A<A8"
41060 B0E$="@77V11O1L16Q8  A4AR>A4&A8<A>A<A8 A4D4E4 @27V8O2G8G#8"
41070 B0F$="@77V11O1L16Q8 (>E8&E<E>E<E>E8&E<E>E<E>E8<E8)"
41080 B1$= "@28V10O2L16Q6  A8&AAE8&EEDRDD8EGG# A8&AAE8&EEDRDD8>C<E8"
41090 B1E$="@28V10O2L16Q6  A8&AAE8&EEDRDD8EGG# A8&AAE8&EEDGD>D8<EG#B"
41100 B1F$="@28V10O2L16Q6  D8&DA8&AD8E8&EB8&BE8 F8&F>C8&C<F8 GG#RG#RG#B8"
41110 B2$ ="@28V10O2L16Q6  <A8>A8AGA8<D8>D8<E8>E<G A>ARGAGA8 R>D<E8>E8<G8"
41120 B2E$="@28V10O2L16Q6  FRF8CRCDRDD#8E8F8 G4G8&GFF#GE8G#8B8"
41130 B2F$="@28V10O2L16Q6  FRF8CRCDRDD#8E8F8 D4D8&DDRD#E8<B8>E8"
41140 B3$ ="@28V10O2L16Q6  F8&FFREFRFRC#8A8G#8 G8&GGRFG8G8&GF#8&F#F8"
41150 B3E$="@28V10O2L16Q6  ER<E8>E8&EERED8C8D8 ARA8GARARAG8D8E8"
41160 B3F$="@28V10O2L16Q6  ARA8A>C<AGRGD8D#8E8 F8&FFREF8 G8G#8A8B8"
41170 B4$ ="@107V9O1L16Q6  A8A8GAAG8GD8E8GG# A8A8GAAG8GD8E8G8"
41180 B4E$="@107V9O1L16Q8  G8A8(GA8)GA8AG8 EGA8(GA8)GARAE8 "
41190 B4F$="@107V9O1L16Q8  A8A8GAAG8GD8E8GG# ARRRRRRR R8D8D#8E8"
41200 '
41210 P1$= "@6 V10O0L16  GRRRGRRRGRRRGRRR   GRRRGRRRGRRRGRRR"
41220 S1$= "@6 V10O0L16  GRRRRRRRRRRRRRRR   RRRRRRRRRRRRRRRR"
41230 R1$= "@6 V10O0L16  CRRRRRCRRRRRGRGR   CRRRRRCRRRRRCRRG"
41240 P2$= "@6 V12O3L16  RRRRCRRRRRRRCRRR   RRRRCRRRRRRRCRRR"
41250 Q2$= "@6 V12O3L16  RRRRCRRRRRRRCRRR   RRRRCRRRRCRRCRV4CC"
41260 R2$= "@6 V12O3L16  RRRRCRRRRRCRRCRC   RRRRCRRRRRRRRRCR"
41270 P3$= "@12V10O7L16  RRC<RCR>CR RRC<RCR>C<C> (RRC<RCR>CR)"
41280 S3$= "@12V10O7L16  RRC<RCR>CR RRC<RCR>C<C>  "
41290 P4$= "@9 V7 O1L16  CR<C>RGR<C>DER<C>RGR<CG> CR<C>RGR<C>DE<C>CRGR<CR"
41300 S4$= "@9 V7 O1L16  CR<C>RGR<C>DER<C>RGR<CG> C"
41310 P5$= "@7 V7 O1L16 (%R5G%L5R%CR4)RRGR(%CGR%L5RR@5%R5CR@7])%CGRRR"
41320 Q5$= "@7 V7 O1L16 (%R5G%L5R%CR4)RRGR(%CGR%L5RR@5%R5CR@7])%C(G@5C@7)"
41330 P6$= "@12V7 O4L16 (%R9RRCRRV2%CCRV3%L9CV5)3 %R9RC%L9CRR%CV2CV4CR"
41340 BP1$="@6 V8 O0L16  R1R2RRGRGRGR"
41350 BP2$="@9 V0 O6L16  (RRFR])4(FFFF])FF]F]F]]%R9F]]]%L9F %C@1O2G8"
41360 BP3$="@9 V8 O3L16  R2RRRRGRRR (<G>GR)3<G>%R9GR %L9GR%C@8GR"
41370 '
41380 '
41390 PLAY      ,    ,E1R$,,,,   ,   ,P3$,P4$,"T134"
41400 PLAY      ,E1L$,E1R$,,,,   ,R2$,S3$,S4$
41410 PLAY  B0F$,E1L$,E1R$,E2L$,E2R$,,R1$,R2$,P3$,P4$,P5$
41420 PLAY  B0F$,E1L$,E1R$,    ,    ,,R1$,R2$,P3$,P4$,Q5$
41430 PLAY  B0F$,E1L$,E1R$,E2L$,E2R$,,R1$,R2$,P3$,P4$,P5$
41440 PLAY  B0F$,E1L$,E1R$,    ,    ,,R1$,R2$,S3$,S4$,Q5$
41450 PLAY  B0$ ,E1L$,E1R$,,,,S1$
41460 PLAY  B0$ ,E1L$,E1R$,,,,S1$,S3$,BP1$
41470 PLAY  B0$ ,    ,E1R$,,,,P1$,P3$
41480 PLAY  B0E$,    ,    ,,,,P1$,S3$
41490 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,P2$,P3$,"T135"
41500 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,Q2$,P3$
41510 PLAY  B1$ ,C1L$,C1R$,C1C$,,,P1$,P2$,P3$
41520 PLAY  B1E$,C1L$,C1R$,C1C$,,,P1$,Q2$,P3$
41530 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
41540 PLAY  B1E$,C1L$,C1R$,C1C$,A1E$,A1F$,P1$,Q2$,P3$
41550 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
41560 PLAY  B1F$,C1L$,C1R$,C1C$,A1G$,A1H$,P1$,Q2$,P3$,BP2$
41570 PLAY  B2$ ,C2L$,C2R$,,A2L$,A2R$,R1$,R2$,P3$,P4$
41580 PLAY  B2E$,C2E$,C2F$,,A2E$,A2F$,R1$,R2$,P3$,P4$
41590 PLAY  B2$ ,C2L$,C2R$,,A2L$,A2R$,R1$,R2$,P3$,P4$,P5$
41600 PLAY  B2F$,C2G$,C2H$,,A2G$,A2H$,R1$,R2$,P3$,P4$,Q5$
41610 PLAY  B3$ ,C3L$,C3R$,,A3L$,A3R$,P1$,P3$
41620 PLAY  B3E$,C3E$,C3F$,,A3E$,A3F$,R1$,R2$,P3$,P5$
41630 PLAY  B3$ ,C3L$,C3R$,,A3L$,A3R$,P1$,P2$,P3$
41640 PLAY  B3F$,C3G$,C3H$,,A3G$,A3H$,P1$,R2$,P3$,P4$,Q5$,BP1$
41650 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
41660 PLAY  B1E$,C1L$,C1R$,C1C$,A1E$,A1F$,P1$,Q2$,P3$
41670 PLAY  B1$ ,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$
41680 PLAY  B1F$,C1L$,C1R$,C1C$,A1I$,A1J$,P1$,Q2$,P3$,BP2$
41690 PLAY      ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$
41700 PLAY      ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$
41710 PLAY  B4$ ,E3L$,E3R$,C1L$,C1R$,C1C$,R1$,R2$,P3$,P4$,P5$
41720 PLAY  B4F$,E3E$,E3F$,C1L$,C1R$,C1C$,S1$,S2$,S3$,S4$,Q5$,BP3$
41730 PLAY  B4E$,F1L$,F1R$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41740 PLAY  B4E$,F1E$,F1F$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41750 PLAY  B4E$,F1G$,F1H$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41760 PLAY  B4E$,F1I$,F1J$,C4E$,C4F$,C5$,S1$,P2$,S3$,P6$,BP1$
41770 PLAY  B4E$,F2L$,F2R$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41780 PLAY  B4E$,F2E$,F2F$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41790 PLAY  B4E$,F2G$,F2H$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$
41800 PLAY  B4E$,F2I$,F2J$,C4L$,C4R$,C5$,P1$,P2$,P3$,P6$,BP2$
41810 PLAY      ,F3L$,F3R$,C4L$,C4R$,C5$,P1$,P3$,P6$
41820 PLAY      ,F3E$,F3F$,C4L$,C4R$,C5$,P1$,P3$,P6$
41830 PLAY      ,F3L$,F3R$,    ,C4R$,   ,S1$,S3$
41840 PLAY      ,F3G$,F3H$
41850 RETURN
41860 '
41870 '
41880 *S_85
41890 'BIZARRE LOVE COLORS
41900 '
41910 AL$="@32V6O4L16U100Q4" : AR$=AL$+"@39U-50"
41920 DL$="@15V6O4L16U100Q8" : DR$=DL$+"U-50"
41930 A0L$=AL$+"RRRR Q8D4<B8&B>C8&CD8  Q4FCDRF8&FD8DD8F8G8"
41940 A0R$=AR$+"RRRR<Q8A4 F8&F G8&GA8> Q4FCDRF8&FD8DD8F8G8"
41950 A0E$=AL$+"V4 RRRR Q8D4<B8&B>C8&CD8  Q4ERRRRRFRRRRRGRRR"
41960 A0F$=AR$+"V4 RRRR<Q8A4 F8&F G8&GA8> Q4ERRRRRFRRRRRGRRR"
41970 A0G$=AL$+"Q8   R1R2R4 C8RR"
41980 A0H$=AR$+"Q8   R1R2R4<G8RR"
41990 A1L$=AL$+"CDRCF8D8&D<Q2GG8ARB8Q4> CDRCF8D8RDD8 AGC8"
42000 A1R$=AR$+"CDRCF8D8&D<Q2GG8ARB8Q4> CDRCF8D8RDD8 AGC8"
42010 A1E$=AL$+"<B32>C32DRCF8D8&D<BB8>C8BE CDRCF8DC#8C<B8A#8A8"
42020 A1F$=AR$+"<B32>C32DRCF8D8&D<BB8>C8BE CDRCF8DC#8C<B8A#8A8"
42030 A1G$=AL$+"CDDRCDDDRDDRF8G8 L64CC#DD# L16 E8Q8F8F#G8RGGRGRGR"
42040 A1H$=AR$+"CDDRCDDDRDDRF8G8 L64CC#DD# L16 E8Q8F8F#G8RGGRGRGR"
42050 A1I$=AL$+"CDRCF8D8&D<Q3GG8ARB8Q4> CRRRRRRR RRGRGRGR"
42060 A1J$=AR$+"CDRCF8D8&D<Q3GG8ARB8Q4> CRRRRRRR RRERERER"
42070 A1M$=AL$+"CDRCF8D8&D<Q2GG8ARB8Q4> C4&C8<B4&B8>C4"
42080 A1N$=AR$+"CDRCF8D8&D<Q2GG8ARB8Q4> C4&C8<B4&B8>C4"
42090 A2L$=AL$+"Q8  C4>C8<C8&CCCR>CR<C4CR>C8<F4E32FR32>F8<F8"
42100 A2R$=AR$+"Q8  C4>C8<C8&CCCR>CR<C4CR>C8<F4E32FR32>F8<F8"
42110 A2E$=AL$+"Q8  A4ARA#4A8G8F8 ]RRF4<<A#R>> RG<G>RG4"
42120 A2F$=AR$+"Q8  A4ARA#4A8G8F8 ]RRD4<<A#R>> RE<E>RE4"
42130 A2G$=AL$+"Q8  G#32A32&A8RARA#4A8G8F4 FRF4 <A#>A#<A#8>CRC#8"
42140 A2H$=AR$+"Q8  G#32A32&A8RARA#4A8G8F4 FRF4 <A#>A#<A#8>CRC#8"
42150 A3L$=AL$+"Q8  A#4ARA#4ARG8F8 &F2<F8>F8<A8>A8"
42160 A3R$=AR$+"Q8  A#4ARA#4ARG8F8 &F2<F8>F8<A8>A8"
42170 A3E$=AL$+"Q8  A#4ARA#4ARG8F8 &F2A4>FRFR"
42180 A3F$=AR$+"Q8  A#4ARA#4ARG8F8 &F2A4>FRFR"
42190 A3G$=AL$+"Q8  A#4ARA#4ARG8F8 &F2 "+DL$+" G4E4"
42200 A3H$=AR$+"Q8  A#4ARA#4ARG8F8 &F2 "+DR$+" G4E4"
42210 A4L$=DL$+" B4>C8&C<B8>CC8<B8>C<F B8F8>C8&C<B8>CC8<B>DF8"
42220 A4R$=DR$+" B4>C8&C<B8 AA8 B8 A F B8F8>C8&C<B8 AA8 B>DF8"
42230 A4E$=DL$+">E8FD8EC8D<B8>C<A8B8 DRD8>CC8CRCC8C8D8<"
42240 A4F$=DR$+">E8FD8EC8D<B8>C<A8B8 DRD8 AA8ARAA8A8B8 "
42250 A4G$=DL$+">E8DERA8ERED8C8DD#  E8DERA8ERED8>CR<<A8"
42260 A4H$=DR$+">E8DERA8ERED8C8DD#  E8DERA8ERED8>CR<<A8"
42270 A4I$=DL$+" B8&B>C RRRRRCCRF<A8<A B8>B8C8>C8<D>D<D8>F8G8"
42280 A4J$=DR$+" B8&B>C RRRRRCCRF<A8<A B8>B8C8>C8<D>D<D8 F8G8"
42290 A5L$=DL$+" E8FD8EC8D<B8>C<A8B8L64FGABL16>C8<BRRB32>C32&C8&C<B8>C8D8"
42300 A5R$=DR$+" E8FD8EC8D<B8>C<A8B8L64FGABL16 A8 GRRG32 A32&A8&A G8 A8B8"
42310 A5E$=DL$+" DRD8>CR<DBRDABD8BR  ARG#8GFR>DR<DFGG#RA8"
42320 A5F$=DR$+" DRD8 AR DGRDFRD8GR <ARG#8GFR>DR<DFGG#RA8"
42330 A5G$=DL$+" AARDRCD8RDD8F8GG# AARDRCD8RDD8BAG8"
42340 A5H$=DR$+" AARDRCD8RDD8F8GG# AARDRCD8RDD8BAG8"
42350 A5I$=DL$+" A8>D8<A>C8<AB8>C<B8>EC8 CDD8CDRAD8G#D8GD8"
42360 A5J$=DR$+" A8>D8<A>C8<AB8>C<B8>EC8 CDD8CDRFD8F D8ED8"
42370 A6L$=DL$+" RRERF4EFRF8GE8 <B>CRCD8DEREF8>CRC8"
42380 A6R$=DR$+" RRERD4EFRF8GC8 <B>CRCD8DEREF8 ARA8"
42390 A6E$=DL$+" >D<G#G8F8G8E8FD8EC8 <B8F>C8<G>C#8 DR>D<DRCDE"
42400 A6F$=DR$+" >D<G#G8F8G8E8FD8EC8 <B8F>C8<G>C#8 DR>D<DRCDE"
42410 A6G$=DL$+"FEF4ERR>C<C8>C4<@56Q1RCC8<@59]]%L9C4%CQ8[[>@15U100R8B8A8G8"
42420 A6H$=DR$+"FEF4ERR>C<C8>C4<@56Q1RCC8<@59]]%R9C4%CQ8[[>@15U-50R8B8A8G8"
42430 A6I$=DL$+" G#32AR32D8>D8&DCRC<B8A8B8 >C8<A>D8<B>CRRCC8CRC#8"
42440 A6J$=DR$+" G#32AR32D8>D8&DCRC<B8A8B8 >C8<A>D8<B>CRRCC8CRC#8"
42450 A7L$=DL$+" E4&E8F2 CDE8D8C8<B4&B8G4"
42460 A7R$=DR$+" C4 C8C2 CDC8D8C8<B4&B8G4"
42470 A7E$=DL$+" E4&E8F2 CDE8F8E8D4C8<B4" : A7G$=DL$+" E1"
42480 A7F$=DR$+" E4 C8C2 CDC8F8E8D4C8<B4" : A7H$=DR$+" C1"
42490 '
42500 C0L$="@45V6O3L16%R2Q3U100   RRDRRRRDRRDRADRR RRDRRRRDRRDRDR@50Q8>D8"
42510 C0R$="@45V3O3L16%L2Q3U-50R8 RRDRRRRDRRDRADRR RRDRRRRDRRDRDR@50Q8   "
42520 C1L$="@45V6O3L16Q3U150  GAAARA8ARAARARAR GAAARA8ARAARARAR Q8"
42530 C1R$="@45V3O3L16Q3U-90E GAAARA8ARAARARAR GAAARA8ARAARARA  Q8"
42540 C1E$="@45V6O3L16U150Q3  GAAARA8ARAARARAR A#A#RA#>F8<A#>CRCG8C8G8 Q8"
42550 C1F$="@45V3O3L16U-90Q3E GAAARA8ARAARARAR A#A#RA#>F8<A#>CRCG8C8G  Q8"
42560 C2L$="@45V6O4L16U100Q6  FRRRRRFRRR>ARGRAR <GRRARRA#RRR>>CR<GRER Q8"
42570 C2R$="@45V3O4L16U-50Q6C FRRRRRFRRR>ARGRAR <GRRARRA#RRR>>CR<GRE  Q8"
42580 C2E$="@45V6O4L16U100Q6  FGRGRRGRRRA#RA#R>CR CR<A#RARA#4ARGRER Q8"
42590 C2F$="@45V3O4L16U-50Q6C FGRGRRGRRRA#RA#R>CR CR<A#RARA#4ARGRE  Q8"
42600 C3L$="@45V6O5L16U100Q5  E8&EF R2<<A>AC>C  E8&EF R4&R8GRA8 C8"
42610 C3R$="@45V6O5L16U-50Q5  C8&CD R2<<A>AC>C  C8&CD R4&R8CRE8<G8"
42620 C3E$="@45V6O5L16U100Q5  E8&EF R2<<A>AC>C  E8&EF R4<<G>G<G8A8>A8"
42630 C3F$="@45V6O5L16U-50Q5  C8&CD R2<<A>AC>C  C8&CD R4<<G>G<G8A8>A8"
42640 C4L$="@45V8O3L16U100Q5%L9BRFR>CR<GRB>CRCRD<B8 RBRRBRR>C<B>CRCR F<B8"
42650 C4R$="@45V8O3L16U-50Q5%R9GRDR AR ERG ARARB G8 RGRRGRR A G ARAR>D<G8"
42660 C4E$="@58V6O3L16U100Q1%R9 (B[BR)4BRBR V6 >(C[CR)4CRCR Q8"
42670 C4F$="@58V6O3L16U-50Q1%L9 (B[BR)4BRBR V6 >(C[CR)4CRCR Q8"
42680 C5L$="@45V6O3L16U100%R9 G1&G2&G8F4G8"
42690 C5R$="@45V6O3L16U-20%L9 G1&G2&G8F4G8"
42700 C5E$="@45V6O3L16U100%R9 E4&E8 F8&F1C4D4"
42710 C5F$="@45V6O3L16U-20%L9 E4&E8 F8&F1C4D4"
42720 C5G$="@45V6O3L16U100%R9 E4&E8F8&F1&F1"
42730 C5H$="@45V6O3L16U-20%L9 E4&E8F8&F1&F1"
42740 E0L$="@6V5O4L16Q1   RRDR@3D@59R4D@6<A8>RDRR DR@59DRR4R@6ARR@59ARRDQ8"
42750 E0R$="@6V2O4L16Q1R  RRDR@3D@59R4D@6<A8>RD4  DR@59DRR4R@6ARR@59AR  Q8"
42760 E0E$="@6V5O4L16Q1   CRDR@3D@59R4D@6<A8>RDRR DR@59DRR4G@6A@59FRCRRDQ8"
42770 E0F$="@6V2O4L16Q1R5 CRDR@3D@59R4D@6<A8>RDRR DR@59DRR4G@6A@59FRC90 Q8"
42780 E1$ ="@60V6O4L16  <C8>CR<G>C8DFC8CRCC8 <C>CC>G<GC8D>F<C8CRCC8 "
42790 B0$ ="@77V9O1L16  D4&D8DR<A4>C8<A8 >C8DRD4<A4>C8<A8"
42800 B0E$="@77V9O1L16  R2R4 RRR<B> CRRRC4 @29 ARA8>CRC8"
42810 B1$ ="@27V9O3L16  DRRRD8&D<ARAB8>C8ED# D8CRD8&D<ARAB8>C8E8"
42820 B1E$="@27V9O3L16  DRRRD8&D<ARAB8>C8ED# C4<CR>C4<CR>C8<CG"
42830 B2$ ="@27V9O3L16  F8&FFFRRRR>C<F8E8F8  R8A#4A#4ARA#R>C8"
42840 B2E$="@27V9O3L16 <G4>G8<G8&GFGR>A#8<GA A#8&A#A#A#RA#RRRA#8>G8C8<"
42850 B2F$="@27V9O3L16 <G4>G8<G8&GFGR>A#8<GA A#2 A#8>A#8C8>C8 "
42860 B3$ ="@27V9O3L16  RRD8CDRDRRRR<B8>C8    <D8>D8CDRD <<RRA8>A8<A8"
42870 B3E$="@27V9O3L16  RRD8CDRDR<GA8B8>C8    <D8>D8CDRD<<G8>G8<A8>A8"
42880 B4$ ="@27V9O3L16 <A#4A#R>C4<C8>C4&C8<   FRF4G4A4"
42890 B4E$="@27V9O3L16 <A#4A#R>C4<C8>C4<     R2<G8A8>C8C#8"
42900 B5$ ="@27V9O3L16 (<D8>D8)<F8>F8<G8>GC (<D8>D8)<F8>F8<G8>G8<"
42910 B5E$="@27V9O3L16 (<D8>D8)<F8>F8<G8>GF# (<F8>F8)<G8>G8<A8>A8"
42920 B5F$="@27V9O3L16  DRRRD8&D<A>CDRDRC<A8>  G8D8G8DGRGC8C#8B8"
42930 B5G$="@27V9O3L16  DRRRD8&D<A>CDRDRC<A8   F8DG8DA#4A#B>CR<A8"
42940 B6$ ="@27V7O3L16  D4DR<A4ARARAB> C8<B8A8G4GRG>G<G8"
42950 B6E$="@96V5O2L16  D4&D8<A2&A8> C4&C8<G4&G8A4>"
42960 B6F$="@96V5O2L16  D1"
42970 B9$ ="@27V9O3L16  C8D<DA>A<A>C&C8DRARA<G G#8AR>GRGE8<GG8G#8A8"
42980 '
42990 P1$= "@6 V10O0L16 G4RRG4R@9>C<@6RRRG    GRR@9>C<@6RRGRRGR@9>C<@6RRGR"
43000 S1$= "@6 V10O0L16 G4RRG4R@9>C<@6RRRG    GRRRRRRRRRGRGRGR"
43010 P2$= "@6 V12O3L16 RRRRCRRRRRCRRCRR      RRRRCRRRRRCRRCRC"
43020 S2$= "@6 V12O3L16 RRRRCRRRRRCRRCRR      RRRRRRRRRRRRRRRR"
43030 P3$= "@9 V5 O6L16 FRFRRRFRFRRRFRFC32F32 FCFRRRFRFRRRFRFR"
43040 P4$= "@6 V7 O7L16 RRGRCRRRGRRGRGRG      RRGRCRRRGRRCRGRG"
43050 P5$= "@12V9 O7L16 CRRRRRCRRRRRCRCR      CRRRRRCRRRRRCRRR"
43060 PP1$="@3 V3 O2L16%R8 CRCREDCR>CC<RCRDC<C> CGRCFE32D32CR>CC<RCR<D>CR"
43070 PP2$="@3 V4 O7L16%L8 CRRCRRCRRCRRCRCR     CRRCRGCRRCR<G>C<C>CR"
43080 PP3$="@7 V7 O6L16%CQ8  G2RRRRRRQ1GR Q8GRRRGRRR RRQ1GRQ8GRGR"
43090 PQ3$="@7 V7 O6L16%CQ8  G2RRRRRRQ1GR<G>RRRQ8GRRG <G>CQ1GRQ8GRGR"
43100 BP1$="@9 V9 O2L16   R1%R5G%L5GR%CG @8>G8<@9GGR @8>G<@9GR@8>G8V1GG"
43110 BP2$="@2 V0 O7L16  (RRFRRRFR])RRFF]FF]FF]FF]F]F]%R9F%L9F%C@11O1G"
43120 BP3$="@8 V7 O3L16   R1R2R8 GR %R1G %L1GR%CG"
43130 '
43140 '
43150 '
43160 PLAY B0$ ,,,,,,PP3$
43170 PLAY B0$ ,,,,,,PQ3$
43180 PLAY B0$ ,,,,,,P3$,PP3$
43190 PLAY B0$ ,,,,,,P3$,P4$,PQ3$
43200 PLAY B0$ ,E0L$,E0R$,,,,P3$,P4$,PP3$
43210 PLAY B0$ ,E0E$,E0F$,,,,P3$,P4$,QP3$
43220 PLAY B0$ ,E0L$,E0R$,C0L$,C0R$,,P3$,P4$,PP3$
43230 PLAY B0$ ,E0E$,E0F$,C0L$,C0R$,,P3$,P4$,QP3$
43240 PLAY     ,E0L$,E0R$,C0L$,C0R$,,P3$,P4$,PP3$
43250 PLAY     ,    ,E0R$,    ,C0R$,,P3$,P4$,QP3$
43260 PLAY     ,    ,    ,    ,    ,,P3$,P4$,PP3$
43270 PLAY     ,    ,    ,    ,    ,,PQ3$
43280 PLAY B0$ ,E0L$,E0R$,C0L$,C0R$,   ,P3$,P4$,PP3$
43290 PLAY B0$ ,    ,E0R$,C1L$,C1R$,   ,P3$,P4$,QP3$
43300 PLAY B0$ ,A0E$,A0F$,C1L$,C1R$,E1$,P3$,P4$,PP3$
43310 PLAY B0E$,A0G$,A0H$,C0L$,C0R$,   ,   ,   ,QP3$,BP2$
43320 '
43330 PLAY B1$ ,C1L$,C1R$,A0L$,A0R$,E1$ ,S1$,S2$,P3$
43340 PLAY B1$ ,C1L$,C1R$,A1E$,A1F$,E1$ ,P1$,P2$,P3$,P4$
43350 PLAY B1$ ,C1L$,C1R$,A0L$,A0R$,E1$ ,P1$,P2$,P3$,P4$,P5$
43360 PLAY B1E$,C1E$,C1F$,A1G$,A1H$,E1$ ,S1$,S2$
43370 PLAY B2$ ,C2L$,C2R$,A2L$,A2R$,E1$ ,P1$,P2$,P3$,P4$,P5$
43380 PLAY B2E$,C2L$,C2R$,A2E$,A2F$,E1$ ,P1$,P2$,P3$,P4$,P5$
43390 PLAY B2$ ,C2L$,C2R$,A2L$,A2R$,E1$ ,P1$,P2$,P3$,P4$,P5$
43400 PLAY B2F$,C2E$,C2F$,A2G$,A2H$,E1$ ,S1$,S2$,P3$,P4$,P5$
43410 PLAY B3$ ,C3L$,C3R$,    ,    ,E1$ ,P3$,P4$,PP1$
43420 PLAY B3E$,C3E$,C3F$,    ,    ,E1$ ,P3$,P4$,PP1$,PP2$
43430 PLAY B3$ ,C3L$,C3R$,    ,    ,E1$ ,P3$,P4$,PP1$,PP2$
43440 PLAY B1E$,C3E$,C3F$,    ,    ,E1$ ,P3$,P4$,PP1$,PP2$
43450 PLAY B3$ ,C3L$,C3R$,A1L$,A1R$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43460 PLAY B3E$,C3E$,C3F$,A1I$,A1J$,E1$ ,S1$,P2$,P3$,P4$,PP1$,PP2$
43470 PLAY B3$ ,C3L$,C3R$,A1E$,A1F$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43480 PLAY B1E$,C3E$,C3F$,A1M$,A1N$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43490 PLAY B4$ ,C2L$,C2R$,A3L$,A3R$,E1$  ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43500 PLAY B4$ ,C2L$,C2R$,A3L$,A3R$,E1$  ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43510 PLAY B4$ ,C2L$,C2R$,A3E$,A3F$,E1$  ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
43520 PLAY B4E$,C2E$,C2F$,A3G$,A3H$,E1$  ,S1$,S2$
43530 PLAY B5$ ,C4L$,C4R$,A4L$,A4R$,E1$  ,P1$,P2$,P3$,P4$,P5$
43540 PLAY B5$ ,C4L$,C4R$,A4E$,A4F$,E1$  ,P1$,P2$,P3$,P4$,P5$
43550 PLAY B5E$,C4L$,C4R$,A4G$,A4H$,E1$  ,P1$,P2$,P3$,P4$,P5$
43560 PLAY B5$ ,C4L$,C4R$,A4I$,A4J$,E1$  ,P1$,P2$,P3$,P4$,P5$,BP1$
43570 PLAY B5F$,C4L$,C4R$,A5L$,A5R$,E1$  ,P1$,P2$,P3$,P4$,P5$
43580 PLAY B5F$,C4L$,C4R$,A5E$,A5F$,E1$  ,P1$,P2$,P3$,P4$,P5$
43590 PLAY B5F$,C4L$,C4R$,A5G$,A5H$,E1$  ,P1$,P2$,P3$,P4$,P5$
43600 PLAY B5F$,C4L$,C4R$,A5I$,A5J$,E1$  ,P1$,P2$,P3$,P4$,P5$
43610 PLAY B5F$,C4L$,C4R$,A6L$,A6R$,E1$  ,S1$,S2$,P3$,P4$,PP3$
43620 PLAY B5F$,C4L$,C4R$,A6E$,A6F$,E1$  ,S1$,S2$,P3$,P4$,PQ3$,BP3$
43630 PLAY B5F$,C4L$,C4R$,A6G$,A6H$,E1$  ,P1$,P2$,P3$,P4$,PP3$
43640 PLAY B5G$,C4L$,C4R$,A6I$,A6J$,E1$  ,S1$,S2$,   ,   ,PQ3$,BP1$,BP2$
43650 PLAY B6$ ,C5L$,C5R$,A7L$,A7R$,E1$, ,PP3$
43660 PLAY B6$ ,C5E$,C5F$,A7E$,A7F$,E1$, ,PQ3$
43670 PLAY B6$ ,C5L$,C5R$,A7L$,A7R$,   , ,PP3$
43680 PLAY B6$ ,C5E$,C5F$,A7E$,A7F$,   , ,PQ3$
43690 PLAY B6E$,C5L$,C5R$,A7G$,A7H$,,PP3$
43700 PLAY B6E$,C5E$,C5F$,    ,    ,,PQ3$
43710 PLAY B6E$,C5L$,C5R$,    ,    ,,PP3$
43720 PLAY B6E$,C5E$,C5F$,    ,    ,,PQ3$
43730 PLAY B6F$,C5L$,C5R$,A0E$,A0F$,,PP3$
43740 PLAY     ,C5G$,C5H$
43750 RETURN
43760 '
43770 '
43780 '********************************************************************
43790 'END OF PROGRAM